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1. INTRODUCTION 

1,1 Introduction 

ILLIAC II, the new University of Illinois computer, was designed, 
and "built by the staff of the Digital Computer Laboratory. . Preliminary 
study began in December, 1956, and design in December, 1957- Construction 
began in i960. The main processing unit was completed in September, 1962, 
and it then began functioning with paper tape input/output. The gift from 
the IBM Corporation of input/output equipment makes it possible to use the 
power of the very fast arithmetic unit and memory to the full. At the 
time of its introduction, it brings to the University of Illinois campus 
a machine whose only competitor in speed of operation is the IBM 7030 
computer (STRETCH). 

Approximate figures for the various operation times are: 

Multiply 6.6 microseconds 

Floating Point Add 2.5 microseconds minimum, 

3.5 microseconds average 

Memory Cycle 1.8 microseconds 

Index Operations 1.0 microseconds 

These do not represent the whole story as there is a large amount of overlap 
among the various tasks. Memory cycles, instruction decoding, indexing, 
and instruction execution can be occurring simultaneously so that, for 
example, most indexing operations absorb no effective time at all. 

Arithmetic is performed on a 52-bit word which represents a 
floating-point number with sign, kk fraction bits and a seven-bit bas-e h 
exponent. This gives an unusually large precision of about 13 decimal 
digits with a range of about 10 to 10 . Sixteen index registers add 
to the ease and speed of programming. These are stored in a very high-speed 
memory with a cycle time of about .2 microseconds. This memory can also 
hold up to eight instructions and four additional words of data which can 
be used as temporary storage in the execution of a high-speed loop. 
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Additionally, the machine has the capabilities of performing 32 
input/output operations simultaneous with compute operations. The central 
computer is slowed down only if the memory is busy too often. 

Input/output equipment that will he connected to the computer 
includes 65,536 words of drum backup store, access time 6.8 microseconds 
(circuitry for this was built at this laboratory); approximately 12 million 
words of disk file backup store on IBM 1301 disk files; ten IBM 729 Mark VI 
tape units; an IBM 1^01 computer with 600 line-per-minute chain printer, 
an 800 card-per-minute card reader, and a 250 card-per-minute card punch. 
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1.2 Use of This Manual 

The primary input to this computer is toy punched cards , and the 
purpose of this manual is to describe how these should toe prepared. This 
is not a manual of instruction in programming, tout a specification of those 
features that are availatole in hardware or software; that is, it is a 
description of the equipment and programs available. It is assumed that 
the reader already knows how to program. 

The interests of the user should determine which parts of the 
Manual he reads and in what order he reads them. A person who wishes only 
to use compilers need read only Chapters 2 and 7. Chapter 2 is concerned 
with operating procedures and Chapter 7 with compilers. On the other hand, 
the person writing in assembly language will need to read Chapters 2, 3, 
k and 5 in some detail. Chapter 3 describes exactly what each order does, 
while Chapter h describes the ways in which it can be written and punched 
on a card. Chapter 5 describes the input/output and auxiliary storage 
programs that constitute part of the system package. Their use is described 
in terms of the assembly routine. The compilers will make use of the same 
input/output routines, but the call sequences will be different and will be 
described along with the compilers in Chapter 7. Chapter 6 contains 
descriptions of the miscellaneous auxiliary equipment which is required 
in any computer installation, such as key punches, reproducers, etc., and 
Chapter 8 contains the program library. This manual, particularly in 
Chapters 6, 7, and 8, is not fixed. It will be extended as more programs 
and equipment are added to the system. 

The assembly program, NICAP, available on ILLIAC II is designed 
to make it possible for the programmer to use the powerful multiple -indexing 
features of this machine easily. A second purpose is to save the programmer 
learning all of the details of the complex address constructions that are 
described in Chapter 3. It is possible to write simple programs for this 
machine in assembly language without absorbing all of the details of Chapter 3, 
and it is suggested that the assembly language programmer should not read 
beyond Section 3.3-8 of Chapter 3, before reading over Chapter k. Chapter 3 
can be used mainly for reference for details of precisely how each order 
works . 
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1.3 ILLIAC II Organization 

The machine can he viewed schematically as containing a floating- 
point accumulator, a very high-speed memory of eight fast registers, and 
a main memory of 8,192 words. Index registers are stored in four of the 
fast registers, packed four per word. Words are 52 bits long; index 
registers are 13 bits long. A diagram is given in Figure 1. Those registers 
labelled FO, Fl, ..., F7 constitute the very high-speed memory. The boxes 
labelled input/ output represent input/output channels. Each channel may 
have any number of input/output devices attached to it, although only one 
device on a channel can be running at one time. All channels, however, can 
run simultaneously. 

The accumulator contains a double-precision number. All adds and 
subtracts work with this double-precision number to give a double-precision 
result. Before operations like multiply, the accumulator is rounded to 
single precision. The details of this are given in Chapter 3- In many 
cases the programmer will not be concerned with the extra precision avail- 
able, in which case he need not examine the details of all of the operations . 
If he always uses the store operation STR (Store Rounded and Normalized) 
rather than the other store operations, then he can consider that the 
accumulator is single precision and that all of the operations are single 
precision, and thus write programs without referring to Chapter 3. He 
should, however, realize that if he does this he cannot analyze exactly the 
total rounding error that may be present, but it is true, in general, that 
an analysis made on this basis will lead to a larger error bound. 

A few general rules can be stated that make it fairly easy to 
program in assembler language. These rules are: 

(1) The orders which operate on the floating-point 
accumulator require an operand. The address in 
the arithmetic order is usually the location of 
that operand in the memory or in the fast memory. 

(2) This operand is put into the fast register Fl 
before it is taken into the accumulator. This 
can be seen from Figure 1. 
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(3) Exceptions to Rule 1 occur for those operations 
which use the address directly as data. Examples 
of this type of instruction are: ADE, Add to 
Exponent,- and LRS, . Long Right Shift . 

(k) Fast register zero, or FO, receives a number 
that is to he stored from the accumulator. 
This also can be seen in Figure 1. 

(5) The modifier (Index) order uses the address as 
the operand. An exception to this rule is LDM, 
Load Modifier. 

From Figure 1 it can be seen that fast registers k, 5, 6> and 7 
can be used for temporary storage of floating point numbers or to hold 
modifiers. The programmer should adopt his own conventions about the use 
of these. Generally, it seems more convenient not to use lk f F5, F6, or 
F7 for floating-point numbers, but to reserve them entirely for use as 
modifiers. F2 and F3 can be used as temporary storage for floating-point 
numbers. These two registers are usually adequate for this purpose. 
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l.k Future Changes 

At the time of writing, no compilers have been programmed for 
1LLIAC II. The current proposal is to have a version of Algol available 
in 1964 and then to turn our energies to other languages. Since no 
definite steps have been taken in this direction, comment from potential 
users is very welcome. 

A number of items that are not yet available are described in 
this manual. In particular, there are only k0$6 words of core storage, 
only two tape units on line, no disk files and some features of the 
assembly and i/o programs will not be working immediately. Suitable 
notations will be made in the chapters in which they are described. 

This manual will evolve as the hardware and programs available 
increase. For this reason, all pages are dated and only section numbered. 
As changes are made, the pages will be retyped and distributed. Periodically 
an up-to-date version of the manual, suitably bound, will be issued. Since 
the manual and programs will change, the Digital Computer Laboratory 
welcomes suggestions about their context and form. 
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2. THE OPERATING SYSTEM 

2.1 Introduction 

The purpose of the operating system is to maintain an efficient 
use of machine time by eliminating stops in and between user programs. 
The operating system sequences call-outs of translators and object programs 
automatically as directed by system control cards and provides the necessary 
diagnostic messages. The simplest operating system is the batch processing 
system which allows only one user on the active area of the machine at any 
one time. More complicated systems may time-share certain of the machine's 
facilities in order to gain efficiency. 
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2.2 The Core -Load Principle 

Only one area of core may be active at any one time, that is, 
only one area may be currently addressable by the main frame of the 
computer. This area has a maximum size of 8192 words but occasionally, 
for short programs, may be reduced in size in order to share this memory 
among several programs. When the system loader puts a program into memory 
for execution it divides the active memory into four areas according to 
the type of use. The first three of these constitute the user area; the 
last is the monitor area and is currently 512 words long. The user may 
not in general use the monitor area. He has, however, complete freedom 
to make use of the other three areas in the user area. These areas are: 

(a) The COMMON Area 

This is in the lower part of memory, normally starting at location 
and is used to provide a common area for data links between various 
subroutines and main programs. Because of the awareness of block 
structure in input/output and auxiliary storage transfers, the 
programmer can also make use of the common area in order to allocate 
blocks of data for back-up storage buffers. The common area may be 
relocated in some instances but only by a multiple of 256 words. 

(b) The Program Area 

Each of the programs that the user requires are loaded into this area. 
The program area starts immediately above the common area. The pro- 
grams are loaded adjacent to each other in the order in which they are 
processed by the system, followed by the necessary library programs 
that are called from the system library tape. Programs are relocated 
by an even number of words only. 

(c) Erasable 

The erasable storage area is typically used for highly temporary 
storage such as in subroutines. Use of this area allows the various 
subroutines to use the same storage cells for their scratch pads, 
thus saving memory. The erasable area starts immediately above the 
program. It also is relocated by an even number of words. 
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2.2.1 System Translation and Relocation 

Each program that is received is translated from the source 
language into a relocatable binary object program which is held in card 
images until load time. If desired the set of binary cards can be 
obtained as explained below. These binary cards may then be loaded in 
place of the source language program. In order to provide for the 
relocation, four different types of addresses are recognized. They are: 
absolute, common relocatable, program relocatable, and erasable relocatable. 

In order to link the various main programs and subroutines 
together transfer vectors are used. Each symbolic name which is called by 
a program, but not defined by that program, results in the compilation of 
such a vector which oocupies one word at the front of the program. There- 
fore, programmers who are working with absolute addresses must be aware of 
this additional relocation to their program. In particular they should be 
aware of the action of the ORG-pseudo operation in assembly language which 
specifies an address relative to the start of the program including its 
transfer vectors. Such a program, however, is still subject to the 
relocation described above. 
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2.2.2 Binary Cards 

A program consists of header cards, program cards and a trailer 
card (which can also contain program) . Columns 11-80 of all cards are in 
the following standard format: 



Column 1 



7-9 punch for binary 



Columns 10+N, 21+4N, 22+4N, 23+^N and 2k+kN for N = 1, 2, 



Ik 



, , W , in the 



represent Ik 52-bit words W , W , 
following fashion: Columns 21+^N to 2k+kE are the 
12 least significant bits of quarter words to 3 
respectively of word W . 



1 


12 


1 


12 


1 


12 


1 






Column 21+VN 




Column 22+J+N 




Column 23+^N 




Column 24+UN 



Word W. 



N 



Column 10+N has the responsibility for relocating the quarter 
words and providing the sign bits of W 



N* 



R oi 


R 02 


s o 


R ll 


R 12 


S l 


R 21 


R 22 


S 2 


V 


R 32 


S 3 



Column 10+N (12 bits) 



S. is the sign bit, R.,R._ is the relocation 
1 ° ' ll i2 

(0 = no relocation, 1 = add R, (program area), 
2 = add R (common area), 3 = a dd R_ (erasable 
area) ) to the ith quarter of word W . 



For program cards columns 9 and 10 are used for control 
information. 
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Column 10 contains the least significant 12 bits of the 

address of the first word to be loaded from this 
card. 

The last card of the program has a similar format except that 
the control bits are 01. In thise case, bit A, column 8 and bits B and C 
form a 15-bit address which is the quarter word to which control should be 
transferred if this is the main program, A main program is the first pro- 
gram if there are no programs with zero entry points; otherwise it is the 
program with zero entry points. (There should be ■ only one such program.) 

Header cards with control bits of 10 for the first and 11 for 
subsequent ones, give information to the loader about the program. This 
information is: 



Length of program 
Length of common storage 
Length of erasable storage 
Number of entry points 
Number of CALL vectors 



13 bits in bit E and column 10 

13 bits in bit D and column 8 

12 bits in column 7 

12 bits in column 6 

12 bits in column 5 



For each entry point indicated, a word is constructed with the 
BDC name and the 15-bit address corresponding to it packed in the format; 



BDC name ■ 
(36 bits) 



12 



12 



12 



■2 -bit quarter 
word address 



13 



L 



13-bit- word 
address 
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The N words corresponding to the N entries occupy the first card, 
words W , . .., W and as many cards thereafter as necessary if N > Ik. The 
next M words on the header cards are the M BCD names of the M CALLed sub- 
routines. These have the same format as entry points except that all bits 
except for the BCD name are 0. 

During loading, the entry points do not cause any words to be 
generated, but the CALLed subroutines each cause a word containing an 
unconditional transfer to be generated at the front of the program. 



Date: 


7/8/614- 


Section: 


2.2.2 


Page: 


3 of 3 


Change : 





2.3 Batch Processing 

Batch processing is achieved "by stacking together a number of 
jobs. Each job is separated by an appropriate card. The programs 
typically contain four different types of cards. 

First must come an ID card. This is to inform the machine of 
the status of the user. The ID card must contain a blank in column 1. 
It is similar in all respects to the ID cards currently used by the PORTHOS 
operating system of the University of Illinois 7O9A. Next will come one 
or more system control cards. These cards are characterized by containing 
a $ sign in column 1. Their purpose is to instruct the system on the 
nature of the program that is to be run. Among these cards will appear 
one or more source programs. These may be in any of these available 
languages or in binary. Finally, if the program uses data, the system 
control card $ DATA will appear and the remainder of the cards are then 
assumed to be data to the user program. 

The system control cards may contain a number of messages. They 
may appear on separate cards or several may appear on one card separated 
by a comma. The message must not extend beyond column 64. The messages 
accepted by the system are : 

NICAP This card indicates that the next source language program 
to be read will be in the assembly language. Therefore, 
the first card following this that does not have a $ sign 
in column 1 and is not a binary card is assumed to be the 
first card of an assembly program. 

PRINT OBJECT This tells the system that the user desires that the object 
program of the next translation be printed. This applies 
to assembly language as well as any algebraic languages. 

PUNCH OBJECT This tells the system to punch a binary object program 

for the result of the next translation. Note that PRINT 
OBJECT and PUNCH OBJECT only apply to the next translation 
and must be repeated for each separate translation. 
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GO 



DUMP 



BINARY 



DATA 



$ 



This indicates that after all translations have been 
completed the program should be loaded and execution should 
begin provided that there are no fatal errors. 

This tells the system to give a nonzero memory dump if exit 
from the user program is made via SYSERR. This exit will 
happen is any of the standard subroutines are used incor- 
rectly. It can also occur if the user terminates with a 
CALL SYSERR. 

This does not have to precede a binary source deck; however, 
if it does then there are to be no more programs in other 
than relocatable binary. 

This card causes the system to terminate the translation 
phase and begin loading. Any cards hereafter are assumed to 
be data to be user program. If the user has no data at all 
this card can be omitted. 

If a system control card has a second $ immediately after the 
$ is column 1 the card is reproduced on the listing but 
causes no other effect. Use of this card should be reserved 
for comments to the operator via an on-line printed facility 
which currently does not exist. 
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2.3.1 Messages from the Batch Processing System 

Each of the control cards that is read by the system is printed. 
If inconsistencies are found appropriate messages are printed followed Toy a 
row of asterisks. These messages are in general self-explanatory. At the 
termination of execution via the SYSERR exit a DUMP may he formed. This 
dump will list each of the fast registers and the accumulator. MO will 
have been changed to a 1 in the process. Also, the location at which the 
CALL SYSERR was executed will be printed. 
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2.k The System Library Tape 

This tape is on logical unit one and it contains a table of 
contents followed by the programs, The table lists those programs which 
are in the monitor areas and those programs which are on the tape approxi- 
mately in order of frequency of the currents. The monitor programs also 
have their addresses listed in the table. Other programs appear in 
relocatable binary form on the tape after the table. The contents of this 
tape are listed in Appendix 2 of this chapter. 
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Message 
GO 
DUMP 

print Object 
punch Object 

NICAP 

BINARY 

DATA 



2.A.1 APPENDIX 1 
SYSTEM CONTROL CARDS 

Comments 
Must appear before any programs. 
Causes a memory dump only if SYSERR is called. 
Should be used with assembly if listing desired. 



No NICAP or compiler program may follow this. 

last card read by system. Not necessary if no data. 



Date: 


7/8/61). 


Section: 


2,A.l 


Page: 


1 of 1 


Change 





2. A. 2 APPENDIX 2 
PROGRAMS OK LIBRARY TAPE 



Major Name 


Minor Names 


Subroutines Used 


ATAN1 






DVD1 






EXP1 






GQU1 






LAG6 






LGT1 


LGBIj LGE1 




LGUN 






PRINT 


PUNCH, READ 


SYSI0, SYSERR 


RKG1 






SIN1 


cjztei 




SQR1 






SYSAUX 






SYSERR 






SYSIjtf 






SYSTEM 
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3. A MACHINE DESCRIPTION AND THE MACHINE LANGUAGE 

3.1 Introduction 

3.1.1 Machine Features 

The computer has the following general characteristics : 

Word Length 52 bits 

Arithmetic Floating-point (multiply time 6.6 microseconds) 

Instruction Length 13 or 2.6 bits 

Address Length 13 bits 

Index Registers (also called Modifiers) ±6, each 13 bits long 

TO 

Main Memory 8192 (or 2 J ) words of core memory 

1.8 |isec for each memory 

10 words, 0,2 p.sec access time 

Two drums--65,536 words total, 6.8 (isec per word 

Ten IBM 729 MK VI magnetic tape units 

Two IBM 1301 Disk Files—about 12,000,000 words 

Punched card 800 cards/minute via on-line IBM 1^01 



Memory Cycle 
Fast Memory 
Back-up Memory 



Input 
Output 



Line Printer 600 lines/minute"! _ , 

fvia on-line IBM 1401 

Punched card 250 cards/minute J 



Mode of Operation Parallel, highly concurrent 

Special Features Interrupt, memory protection, l/o protection 

A typewriter will be connected for system comments. It is not 
directly available to the programmer. Paper tape l/o is also con- 
nected to the machine, but it is only used for engineering tests. 
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3.1.2 Additional Equipment 

Possible later additions may include i/o from remote stations, 
oscilloscope output and data connections to the 709^ computer and the 
pattern recognition computer being planned in the Digital Computer 
Laboratory. 

All orders are described below for completeness but those 
designated with an * cannot be used in normal operation; they will cause 
an interrupt to the system program stored in the high end of memory. 
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3.2 General Mode of Operation 

This and subsequent sections describe in detail the operation 
and address construction of each order. For most applications it is not 
necessary to know the details of the address construction since this is 
handled by the New Illinois Computer Assembly Program (NICAP) described 
in Chapter k. 

The principal controls and data paths are shown in Figure 1. 
There are three main control units in this computer called Delayed Control, 
Advanced Control and Interplay. 
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Data Paths for ILLIAC II 
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3.2.1. Delayed Control 

Floating-point arithmetic is performed in a double-precision 
accumulator in the arithmetic unit under the control of Delayed Control. 
IN and OUT are word registers which contain respectively the operand 
for the next Delayed Control instruction, and the result of the last 
Delayed Control store order. 
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3.2.2 Advanced Control 

Every instruction is obeyed first by Advanced Control. Some 
instructions, such as those which only change the value of a modifier 
register (i.e., index register) are obeyed in their entirety by Advanced 
Control using the 13-bit address arithmetic unit.. For orders obeyed 
by Delayed Control, Advanced Control must form any address required, 
obtain any operand required and place it in the IN register in advance 
of the instruction execution by Delayed Control, and store any result 
from OUT after the instruction has been obeyed by Delayed Control. 
Advanced Control must also do the following: 

(a) Transfer words of instructions from core memories into 
two registers called F8 and F9 in the fast memory. 

(b) Sequence the control counter to define the core address 
and position inside the word of the present instruction. 

(c) Prepare instructions destined for Interplay. 

(d) Time-share the core memories with Interplay. 

(e) Program interrupt, to be explained later. 
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3.2.3 Interplay 

The basic Interplay operation is a block transfer between the 
core memory and any one of the input/output devices or back-up memories. 
This operation requires one interplay channel, which contains counters, 
word-assembly equipment and provision for accessing core memory and 
sensing the end of a block transfer. Most devices have their own private 
Interplay channel. In the case of magnetic tape units, there will be 
several units associated with a channel, at most one connected to the 
channel at any one time . Any number of channels may be running 
simultaneously, and in this case the core memories are time-shared among 
the various Interplay channels and Advanced Control. For an Interplay 
order, Advanced Control constructs an address in the address arithmetic 
unit (AAU) and sends it on to Interplay. 

Interplay is responsible for reading and writing blocks of 
information between core memory and back-up memory of i/O devices, con- 
current with arithmetic. For block transfer purposes, the memory may 
be considered divided into 32 blocks of 256 words each, 

block comprising locations to 255 
block 1 comprising locations 256 to 511 



block 31 comprising locations 793^ to 8191 

Thus a full block begins at some multiple of 256 and ends just before 
the next multiple of 256. For transfers to or from drum, an entire block 
must be transferred at one time. For other devices an initial address 
not necessarily equal to a multiple of 256 may be used, and Interplay 
decides that the transfer is over when the next multiple of 256 is 
reached, or a stop indication is received from the device, whichever 
happens sooner. For example, a stop can be received from a tape unit at 
the end of a record. 
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For input (or playback from drum or file) Interplay assembles 
characters into words, and periodically competes with Advanced Control 
for the use of memory to store one word. There is also a prior competi- 
tion between the various Interplay channels active at the time to see 
which will have the opportunity of competing for Core Memory. The 
completion of any block transfer causes Interplay to set an indicator 
which may cause program interrupt (see below). 
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3.2.4 Use of Immediate Access Memory 

Core Memory jjO The memory containing all even-numbered locations 

0, 2, 4, . .., 8190 

Core Memory jfl The memory containing all odd-numbered locations : 

1, 3, 5, ..-, 8191 



NOTE: 



For the period when only one core memory is attached 
to the machine, its locations are numbered 0, 1, 2, 
. .., 4095, and higher addresses refer to locations in 
this memory modulo 4096 so address 4096 refers to 
location 0, 409V'refers to 1, . .., 8191 refers to 4095, 



Memory protection is accomplished by means of the Block Checker , 
a device having 32 indicators (called busy block flipflops), one for 
each 256-word block of memory. A block may be set busy (indicator on) 
by program because of an Interplay transfer in progress, or for any 
other reason. . Subsequently all addresses going from Advanced Control to 
the core memories are checked to be sure that a block being referred to 
is not busy. Reference to a locked- out block when not in the interrupt 
mode (see below) is a program error and causes: first , read-out even 
if write was requested, and second , program interrupt (see section 3»2.6). 
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3.2.5 Use of Fast Memory 

Registers called FO, Fl, . .., F9 are specialized in purpose. 
F8, F9 contain words of instructions currently being obeyed by the 
computer. F8 holds the contents of some even-numbered location from 
Core Memory #0, and F9 holds the contents of the next higher numbered 
memory location: its address is odd so it came from Gore Memory #1. 
Each of these registers is subdivided into four 13-bit fields called 
control groups . An instruction is made up of one or two control groups, 
and is classified as short or long respectively. Reading from left (most 
significant) to right in a word, the control groups are numbers 0, 1, 
2, 3. A long instruction occupies any two consecutive control groups in 
memory, without restriction. Thus word 2000, control groups and 1 
could hold a long instruction which would be obeyed from F8,0 and F8,l. 
Likewise 2000,3 and 2001,0 could hold a long instruction executed from 
F8,3 and F9,0 and locations 2001,3 and 2002,0 could hold a long instruc- 
tion executed from F9, 3 and (after automatic refill of F8 and F9) from 
F8, 0. With the exception of the instructions CJF, CJS, to be explained 
later, the programmer cannot refer explicitly to F8 and F9. Their use 
is automatic. 

NOTE: For the period when only one core memory is attached to 
the machine, instructions are obeyed from F9. 

Fk, F5, F6, FT are four registers which may sometimes be con- 
sidered as full word registers or, more commonly, each is divided into 
four 13-bit fields called modifiers . These modifiers are numbers 
M0, Ml, . . . , M15 and, reading from left to right 

Fk comprises M0, Ml, M2, M3 

F5 comprises Mk, M5, M6, M7 

F6 comprises M8, M9, M10, Mil 

F7 comprises M12, M13, MlJ+, M15 

So, for example, the instruction CAM 7, 15 (clear add modifier = CAM) 
would replace the rightmost 13 bits of F5 by the integer 15, and the 
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instruction STR F6 would normalize, round off and store the contents of 
the floating-point accumulator into register F6, thereby overwriting 
modifiers MB, M9, M10, Mil. In the latter case M8 will have most signifi- 
cant digit equal to 1 if the accumulator is negative, equal to zero if 
the accumulator is positive, and would he composed of all zeros if and 
only if the accumulator held zero. 

F2, F3 are temporary storage registers used for constants or 
intermediate floating-point results. 

Fl (also called IN) and FO (also called OUT) are closely 
associated with the floating-point arithmetic unit, in the following way: 
Advanced Control pre-processes every instruction obeyed by the machine. 
Some, such as CAM above, it completely executes itself, using a 13-bit 
Address Arithmetic Unit for any arithmetic required. For instructions 
causing i/O actions, it constructs an address, and routes the modified 
instruction on to Interplay. For instructions involving the floating- 
point arithmetic unit, Advanced Control constructs any address required, 
places any operand (obtained from core memory, or fast memory, or from 
the address itself) in the register Fl, and places the order in a register 
called DCR. 

Meanwhile, the floating-point arithmetic unit, under Delayed 
Control, may be executing a previous instruction. When Delayed Control 
is ready to obey this instruction, it copies Fl into an internal register 
in the Arithmetic Unit and decodes the order which is held in DCR. Now 
Fl still holds the operand read-in so one can say in general that Fl 
contains the operand used by the last D.C. (Delayed Control) instruction. 
Therefore, for example, one could square the contents of memory location 
200 with the program. 

CAD 200 (Clear accumulator, add (200 )) 
MPY Fl (Multiply by last operand). 

Results of Delayed Control store orders are placed in F0 and subsequently 
copied by Advanced Control to their correct destinations. If the stated 
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destination is FO, then no further copying is necessary. Thus FO contains 
the last number stored from the Arithmetic Unit. Two further instructions 
LFR (Load Fast Register from core memory) and SFR (Store Fast Register 
into core memory) are needed to complete the description of what is legal 
and what is illegal in the use of FO and Fl. Fast registers may be used 
for operands as follows : 

(1) Delayed Control operands may come from any of FO through 
F7 or from core memory. 

(2) Delayed Control results may go to FO, F2, . ,., F7 or 

core memory, but not Fl. 

(3) £RF can load F2, ..., F7 but not FO or Fl. 
(k) SFR can store FO, F2, . .., F7 but not Fl. 
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3,2.6 Program Interrupt 

Under certain conditions, some of which have already been 
described, it is desirable to break into a program and execute a different 
program retaining the option to resume the old program from point of exit. 
The action of leaving the program and retaining such information as is 
required to resume it later is called program interrupt . Program inter- 
ruption causes the transfer of control to the system program area of 
memory where the necessary fix-up is performed. Causes which might 
justify interrupt include the following: 

(1) Correctable machine malfunctions, such as the incorrect 
read- in of a block from a magnetic tape unit. In this 
case it is very possible that a second reading of the 
same section of tape can be done error-free, and it is 
convenient to have the system program handle this cor- 
rection automatically for the programmer. 

(2) The completion of a block transfer or tape rewind, etc. 
In this case the system program may wish to give 
another block transfer to Interplay if it has been so 
instructed by the programmer. 

(3) Illegal order executed by Advanced Control. During 
program debugging it is desirable to print the location 
and contents immediately rather than allowing control to 
proceed, perhaps by obeying data as instructions. In 

a production run the occurrence of an illegal order 
means either a machine malfunction or that the program 
was not properly debugged. 

(k) An unusual and possibly unwanted arithmetic result, 
such as floating-point overflow. 

(5) Periodic real-time signals furnished by a clock, This 
permits a system program to supervise code checks, and 
possibly keep a log, etc. 



Date: 


3/5/63 


Section: 


3-2.6 


Page: 


1 of 2 


Change : 





(6) Any I/O order (PID, POD, IBT, ASN, SSN, or SSR). When 
the system is present, all i/O must be done by system 
subroutines in order to provide for i/O protection. 

After interruption has taken place, the machine operates in a 
different mode called the interrupt mode , until a particular order is 
obeyed (JDC with B = to be explained later). In this mode orders 
referring to Interplay and to the Block Checker are made legal, all 
references to busy blocks are legalized and no further interruptions may 
take place. An interrupt program determines the cause of the interrup- 
tion, takes appropriate steps to remedy the situation, and, if possible, 
resumes the program with a JDC, B = order which takes it out of the 
interrupt mode and back to the program. 
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3.3 Order Code for Floating-Point Arithmetic 

A word consisting of instructions is divided into four 13-bit 
fields called control groups . An instruction consists of one or two 
control groups and is referred to as short or long respectively, A short 
instruction has three fields reading from left to right or most significant 
to least significant. 

F Seven bits designating the operation to be performed. These bits 
may be designated by a three-letter mnemonic such as MPY for 
multiply, or by three octal digits. For example, MPY is 120 in 
octal or 1 010 000 in binary. 

B Four bits usually designating a modifier register Mg or a fast 

register F . 
a 

C Two bits which usually control address or operand preparation 
and may indicate whether the instruction is short or long. 

A long instruction consists of F, B, C in one control group, and a second 
control group, called N which is usually an address. 

Instructions destined for Delayed Control fall into four categories: 

Full-word Arithmetic (such as MPY) 

Full-word Store ' (such as STR: normalize, round and store) 

Exponent Arithmetic and Shifts (such as ADE: add to exponent) 

Quarter-word Store (the orders SIA: store integer part as 

an address; and SEX: store exponent). 

Consider first the interpretation of B, C and possibly N for full-word 
arithmetic : 

If C = 0, modifier VL contains an address (NL) of a core location containing 
the operand. 

If C = 1, again (VL) defines the core location containing the operand, but 
also 1 + (WL) is returned to M_. 

If C = 2, a long instruction with core address N + (M^) mod 8192. 

If C = 3 and B < 8 the operand is contained in fast register F . 
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If C = 3 and B = 8 the core address is N. 

If C = 3 and B = 9 the integer N converted to floating point is itself the 

operand. In this case the leftmost digit of N is considered to 

have negative weight so -k096 < N < ij-095. 

If C = 3 and B = 10 the fraction N converted to floating point is the 

operand, and -1 < operand < 1 - 1/U096. 
jj. c _ ^ 11 < B < 1^. Unas signed. At present has the effect that floating 

point zero is the operand, hut these should not he used in 

programs because later additions to the computer might require 

the use of these combinations. 

If C = 3, B = 15, floating-point zero is the operand. 

Any order may he changed if it is preceded by an "add to next" 
type order, such as ATN, SFN, ASN, SSN, or a modifier arithmetic order with 
C field equal to 1 or 3. In this case the address of the present order, 
if any, is affected by the preceding order. For floating-point orders only 
C = 3 and B < 8 or B > 11 are unaffected by a preceding "add to next" type 
order . 

In summary, the instruction is short unless C = 2, or C = 3 and 
B is one of 8, 9, or 10; it refers to core memory if C < 3> or C = 3 and 
B = 8; it refers to fast memory if C = 3 and B < 8; and Advanced Control 
constructs an operand from the N address if C = 3 and B = 9 °r 10, or supplies 
the (zero) operand If C = 3, B = 15- If C = 1 counting is performed on the 
modifier register specified. Since there are 16 active modifier registers 
and not 15, the case C = 3, B = 8 is necessary to specify a fixed-memory 
location. The computer may be expected to run somewhat faster if short 
orders are used instead of long ones, and if registers in fast memory are 
used in preference to locations in the core memory. 

For full -word store orders the core memory address or fast memory 
address specifies a destination rather than a source and the cases C = 3, 
B = 1 or B > 9 are illegal, (in the description of the fast memory it was 
stated that it was illegal to store into PI, so C = 3, B = 1 is illegal here. 
For C = 3, B > 9 an operand destination is meaningless. 
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For exponent arithmetic, the "core address" defined above is not 
used to go to core memory, but rather is reduced to eight bits and combined 
with the exponent. More exactly, a word consisting of four copies of the 
address is placed in the IN register and Delayed Control combines arith- 
metically the right-hand eight bits of this word with the exponent. Shift 
orders are also included in this class; however, only the rightmost seven 
bits are used to define the number of shifts. The cases C = 3, B / 8 are 
illegal for exponent arithmetic orders and shift orders. 

For the quarter-word store orders, the B digits define the modifier 
register destination. These orders cannot refer to core memory, and C is 
irrelevant. The instruction SIA should have B = one of 0, h, 8, 12 because 
the integer will appear in the first 13 bits of the OUT register. The 
instruction SEX should have B = one of 3, 1> U; 15 because the exponent 
will appear in the last 13 bits of the OUT register. If other B combina- 
tions occur they are not called illegal by the computer and might just be 
useful. For example, SIA, Ml would cause the 13 bits immediately to the 
right of the radix point to be stored in modifier #1. 
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3.3.1 . The Floating-Point Accumulator 

There are a number of registers in the arithmetic unit whose 
action is required in the execution of instructions, which need not tie 
described in the order code because results do not end up there. For 
one order, SRM, we shall have to refer to some of these extra registers, 
but otherwise the description will center around the basic registers which 
hold the results of each instruction. 

Accordingly, the accumulator consists of two registers, A, E. 
A holds 89 bits called a , ..., ago in twos complement notation, with 
value 

_QQ 

a = -a rt + Z 2 _1 a., so -1 < a < 1 - 2~ . 
i/0 X " _ 

kk -i 
The first ^5 bits of A (a Q , ..., a^), with value -a Q + Z2 a^^ form a 

fraction called a ("A Most"). A zero followed by the remaining digits 
m 

of A (0, a, , ..., ann) form a fraction which is sometimes assigned the 

Hh . 
value Z 2 _1 a, . . and is called a^ ("A Least"). These definitions will 

1=1 
be used in describing some orders. E holds eight bits called e_, eg, ..., 
e n with integer value 

e = -128e„ + Z 2 X e. so -128 < e < 127- 
7 i/7 X " " 

If a calculated e falls outside this range it is held modulo 256. 

Shifts are base k only (two binary places at a time), and the 

exponent e signifies a power of h. The accumulator holds the number 

e -22 

n = a • k . Note that a = a + k a*. 

m 10 

A word W in memory (core or fast) consists of a ^5-bit fraction 

x followed by a seven-bit exponent y at the right-hand end of the word. 

Its value is w = x • ^ y , -6k < y < 63, and fields x, y are represented in 

twos complement notation. Note that the range of exponents permitted in 

the accumulator is about twice that in memory, and the accumulator holds 

a double-precision number. 
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3.3-2 Zero .and Overflow 

„ » -6k 
The representation is memory of a floating-point zero is 0.4 , 

i.e., zero fractional part and the most negative exponent possible, and 

it is the only floating-point number with this exponent. When -6k is 

detected as the exponent of an operand, some orders such as ADD (see 

later) are bypassed. In the accumulator, a zero indicator Z is turned on 

whenever a = 0, or when a calculated exponent is less than -128. The 

contents of the floating-point accumulator is not otherwise altered (it 

is not cleared to a fixed value) so the numerical value of the accumulator 

contents depends on Z as well as the contents of A and E. Whenever f is 

changed, Z is cleared. Store orders, logical shift orders and orders 

which are bypassed do not clear Z. When the operand of certain arithmetic 

orders have exponent equal to -6k, the arithmetic is not done and the 

order is bypassed. 

An overflow indicator 0V is turned on whenever any result is 
too large to be correctly represented and remains on until cleared by a 
special jump-on-overflow order (JDC with B = 10 or ll). If Z is on, the 
setting of 0V is inhibited except for the inverse divide order (VID), 
in which case the memory operand divided by the zero accumulator con- 
tents is judged to be an overflowed number. 

In floating-point arithmetic, overflow of the fractional part 
is corrected by a right shift of A (division by four) and the addition 
of one to the exponent. For logical shifts: SRS, LRS, BLS the loss of 
digits at the left end of A is considered normal. Therefore, for non-store 
orders, 0V is set only if e exceeds 127 or if we are asked to divide by 
zero. 

For store orders one may be required to supply a particular 
representation of the number, and in this case it turns out that either 
the fraction or the exponent may overflow the more restricted range 
of numbers permitted in the memory. In this case 0V is also set. 

Note that Z gives a continuous indication of whether the 
accumulator now holds zero, whereas 0V is a cumulative indicator telling 
whether any result has exceeded range since 0V was last reset. 
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The floating-point store orders (including STF: 'store fixed 
point) conform to the convention on zero numbers in memory, in that if Z 
is on, or e < -6k, or the 1+5 -bit fraction to he stored consists of all 
zeros, then the number • k~ (absolute zero) is transferred to memory. 

The conditions Z on or y = -6k or x = affect the following 
orders : 

ADD/SUB y = -6k bypass the order 

ADD/SUB z on and y ^ -6k obey "clear add"/"clear subtract" 

MPY, Z on bypass the order 

MPY Z off, y = -6k partial normalize (see later), set 

Z on, then bypass the order 

DIV x = set OV and bypass the order 

DIV, Z on, and x / set remainder = and bypass the 

order 

When OV has been set, the results in the accumulator are judged 
wrong, and no attempt is made to maintain a consistent representation of 
wrong numbers. The orders SAM, SAL, SEX are logical in nature. (They 
allow the programmer to store the digits in the accumulator without having 
any floating-point conventions imposed on him. ) If he later uses such a 
number as a floating-point operand it may have exponent -6k and non-zero 
fractional part. 
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3.3-3 Normalization 

A number p • k is called normalized if one of 

(a) Z on 

(b) p = 

(c) -1 < p < - l/k 

(d) 1 A < p < 1 

holds. Since p • 4 q = (%>) • k^' a small fraction p may be normalized 
by repeated left shifts provided one subtracts one from the exponent q 
for every left shift required. Note that the Z indicator can come on 
during normalization due to exponent underflow. Except for divide, the 
results of arithmetic operations are not normalized; however, the 
accumulator may be normalized at the start of multiply, divide, difference 
absolute value (DAV) and certain of the store orders. 
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3.3-^ Addition and Subtraction 

The sum x • h? and a • k is obtained with an error of at most 
k~ in its fractional part as follows: 

(a) If |e - y| > kk, the sum is taken to be the number with 
the larger exponent. 

(b) If |e - y| < kk, the fractional part of the number with 
small exponent is right-shifted |e - y| base k positions 
and its first 89 bits (including sign digit) are added 

to the other fraction. The error, if any, is a truncation 
error to the right of the 89th bit. The larger exponent 
is assigned to the result. 

NOTE: Some cases of floating-point addition can take a large number 
of steps by the computer, and a correspondingly long time to 
execute the instruction. Sometimes these long add or sub- 
tract orders can be avoided by careful programming. Relative 
times for addition can be estimated from the number of steps 
as follows : 

Case 1 e - y < ^5 obey Clear Add six steps 

Case 2 -kk < e - y < about 5 + |e - y| steps 

Case 3 1 < e - y < 22 about 5 + 2 |e - y| steps 

Case k 23 < e - y < kk about -11 + |e - y| steps 

Case 5 ^5 < e - y bypass three steps 

Exceptions . Z true always means Case 1, and Z false but 
y = -6k always means Case 5- 
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3,3.5 Multiplication 

The accumulator is normalized, if necessary , and its first ^5 
"bits are rounded to form a fraction a . The product x • a^ is formed 
in A, and the sum of the two exponents is placed in E. 

If a» = normalization is not necessary (and is not done), 
since the product (a • x) ^ e+y is exact. Likewise if a^ becomes zero 
after some even number of base h shifts, multiplication begins at that 
point . Partial normalization may be described by these rules : 

(1) If Z is true or a* = or a is normalized we are done. 
Otherwise go to (2). 

(2) If one left shift (base ^) of A will normalize a, left 
shift one place and subtract one from the exponent. If 
this results in an exponent less than -128 set Z. 

(3) Otherwise left shift two places and subtract two from 
the exponent. If this results in an exponent less than 

-128 set Z. Now return to (l) above. 
The same type of partial normalization is done at the beginning of the 
DAV instruction. 

The rules for ordinary normalization follow: 

(1) If Z is true or a is normalized we are done. Otherwise go 
to (2). 

(2) If one left shift (base h) of A will normalize a, left shift 
one place and subtract one from the exponent. If this 
results in an exponent less than -128 set Z. • 

(3) Otherwise left shift two places and subtract two from 
the exponent. If this results in an exponent less than 
-128 set Z. Now return to (l). 
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3.3*6 Division 

First, the accumulator is normalized. Then the number from 
memory is normalized. If the latter has a zero fractional part, OV is 
set and the order bypassed at this point. Then if Z is true or the 
difference of exponents (i.e., the exponent to be assigned to the 
quotient) is less than -128, the remainder is cleared to floating-point 
zero, Z is set and the order is bypassed. Otherwise the order is obeyed 
and a quotient is formed which is either normalized or has fractional 
part -l/k and is correctly rounded to b-5 bits. After divide a^ is the 
fractional part of the quotient, a* is zero, and e is the exponent. 

If the Delayed Control order immediately following divide is 
SRM (store remainder), the remainder from division which was held in 
other registers in the arithmetic unit called R, ES is, transferred to 
memory. The remainder obeys the floating-point zero convention for numbers 
to be stored. 

Note that divide can produce exponent overflow. 

We might call an improper division one in which the normalized 
divisor has a fractional part smaller in magnitude than the fractional 
part of the original divident (before normalization). In this case V7 
bits would be required to express the fractional part of the remainder. 
The first k-5 of these are retained, and the two others agree with the 
88th and 89th bits of the dividend. 
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3-3-7 Round-Off 

The first k6 bits of the fractional part of the normalized 
infinite length quotient are rounded to k-5 bits adding a one to the 45-bit 
position, letting carries propagate, and then truncating the result after 
45 bits. If the resulting fraction is +1 it is replaced by +l/4 and 
one is added to the calculated exponent. If this addition^ of one causes 
the exponent to become equal to +128, then OV is set. 

For orders other than divide, a different procedure is used to 
obtain the rounded value of a, namely a as follows: 



a = a 
r m 



if a^ < - 



,,-22 
a = a + 4 a.. 

r m 44 



if H - ^ * 



a + k' 



-22 



if a& > - 



The values +1 and -l/k of a can occur even if a has been normalized. In 

multiply, inverse divide and difference absolute value, these values of 

a are used in the arithmetic unit without additional normalization, since 
r 
it has a somewhat wider range of numbers which may be used during the 

execution of an instruction. In the case of store orders, the accumulator 

is not changed after round- off, but the rounded result may be renormalized 

on the way to the FO register. 



* This corresponds to the rule in decimal arithmetic that to round off 
a five choose the nearest even digit, for example, (.325) rounded = 
.32 whereas (.335) rounded = .34. 
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3.3.8 Correct Overflow and Detect Zero 

As has been described already, the exponent is monitored during 
the. execution of an instruction, and Z or OV is set if the exponent of 
the accumulator falls outside of the range -128 < e < 127. At the end 
of each instruction which affects the contents of the accumulator, the 
operation "correct overflow and detect zero" is performed, whose rules 
follow : 

(1) If a = set Z. If Z is set disregard (2) and (3). 

(2) If -1 > a or a > 1, right shift A by one place and add 
one to the exponent. 

(3) If (2) results in exponent overflow set OV. 

These operations are referred to as "the correction sequence." 
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3.3.9 Floating-Point Orders 

Orders are listed as a mnemonic, followed by a binary plus two 
octal digit representation of the seven-bit order field F. Where B or 
C field digits affect the type of order (e.g., JDC orders), other mnemonics 
can be used In NICAP. These are listed at the end of this Chapter' in 
Table 5 and' described-: further In : Chapter k; 

CAD (102) Clear Add .. Replace a , a*, e by x, 0, y. Z is cleared but 

would be set if x = after "the correction 
sequence." 

CSB (100) Clear Subtract . Replace a , a^, e by -x, 0, y. Z is cleared 

but would be set if x = 0, If x = -1, then 
"the correction sequence" replaces f, y by l/k t 
y + 1. This could not cause OV to be set since 

y: + 1 < 6k. 

CAT (103) Clear Add Twice . Replace a , a„, e by 2x, 0, y. Z is cleared. 

if -l/2 > x or x > l/2 then "the correction 
sequence" replaces a, y by <X/kM f y + 1, If x = 0, 
Z is set and OV cannot be set. 

CST (101) Clear Subtract Twice . Replace a , &p e by -2x, 0, y. Z is 

cleared. If -l/2 > x or x > 1/2 then "the 
correction sequence" replaces a, y by OtJk$. K y + 1. 
If x = 0, Z is set and OV cannot be set. 

AND (105) Digitwise Logical Multiply . Clear Z. Replace the digits of 

a with digits consisting of the product a. • x. 
for each i. Do not change a» or e. Z may be 
set if a = at the end of this instruction. OV 
cannot be set nor can corrective right shifts be 
done. 

LOR (106) Digitwise Logical OR . Clear Z. Replace the digits of a with 

digits consisting of ones wherever a. and x. are 
not simultaneously zeros. Do not change a« or e, 
Z is set if a = at the end of this instruction. 
OV cannot be set nor can corrective right shifts 
be done. 
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NOT (10+) Clear Add Digitwise Complement . Clear Z and a«. Replace a. by- 
digits 1 - x. in every digital position of a . 
Replace e by y. Z will "be set if x is composed 
entirely of ones, OV cannot be set nor can corrective 
right shifts be done 

BLS (107) Single Binary logical Left Shift of A Most . If C = 3> B < 8 
(Also named LFl) and B / 1, a is not changed. Otherwise a is 

replaced logically by 2a mod 2. Z is cleared and 
will be set if a is or -1. F IN is loaded with 
an unused operand so to shift use B = 1, C = 3» To 
load a fast register into F IN use C = 3 and B < 8, 
B ^ 1. The shift is not an arithmetic order unless 
the result is in range. 

AND, LOR and BLS are logical, and since they reset Z without 
replacing the entire contents of the accumulators, should not be used in 
floating-point arithmetic. 

ADD (112) Add . Form the sum of x • k? + a - k e as described on 

page 1 of section 3.3"^« Apart from the cases Z 
true of y = -6k, the accumulator will contain the 
double-precision sum with exponent equal to the 
larger of the exponents of the two operands, before 
overflow is corrected. Z may be set or a right 
shift of one place may occur, adding 1 to the 
exponent. This cannot cause OV to be set, since 
the resulting exponent will not exceed +127. Note 
that no automatic normalization is done during 
addition, so it can serve as both floating-point 
addition and fixed-point addition. The decision 
on whether to normalize is made at the time of a 
store order, and depends on the type of store 
order given. 

SUB (110) Subtract . Form (-x) ° k? + a • k in a manner precisely 

analogous to ADD just above. 
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MPY (120) Multiply . 



DIV (121) Divide . 



Partially normalize a • k e and call the result 
a • h e . Then, if either Z is true or y = -6k, 
set Z and bypass the order. Otherwise replace 
a by x • a in A and e by e + y in E. If 
e + y < -128 set Z, and if e + y > 128 set OV. 
Then "the correction sequence" will set Z if x 
was zero and will right shift A one place and 
1 to the exponent if, and only if, a = -1 and 
x = -1. In this case OV would be set only if 
e + y = 127 before shifting. 

Normalize a • k e and call result a • k . Normalize 
x • ^ y and call result x • k 7 . If x = 0, set OV 
and bypass the order. If x / and Z is true,, set 
remainder equal to zero and bypass the order. 
Form (-) rounded or (t— ) rounded in a^, set a^ = 
and set e equal toe-yore-y+1 respectively. 
The remainder will have an exponent approximately 
22 less than e unless it is precisely zero. OV 
or Z may be set if e - y or e - y - 1 go outside 
the range -128 to +127. "The correction sequence" 
will have effect only if a = +1. In this case the 
fractional part of the quotient is right shifted 
one place and 1 is added to the exponent. If 
exponent overflow results, OV is set. 

NDV (122) Negative Divide . Identical to DIV except that the divisor is 

(-x) • 4 y . 

VID (123) Inverse Divide . The accumulator is normalized and rounded, 

and a and x are interchanged and a,, is cleared; 
e and y are also interchanged. If Z is true OV 
is set and the order by-passed at this point. 
Otherwise x • k? .is normalized. If then x = 0, 
Z is set at this point and the order is by-passed. 
Otherwise division proceeds from this point, 

4 y-e+i 



in a manner 



forming (f-) • ^ y " e °r(j^)' 

analogous to that described under DIV above. 
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LAL (lUl) Load A Least . Z is cleared and the digits a.^ •••* a oo are 

set equal to the non-sign digits of x, namely 

x n x„.,.X| ) . Z would be set if a =0 and the 

12 W m 

non-sign digits of x were all zeros, but "the 
correction sequence" could have no other effect. 
This is a logical order and should not be used 
in floating-point programs . 

DAV (122) Difference Absolute Value . The accumulator is partially- 
normalized and a ° k is formed. It is noted 

r 

whether or not Z is true at this time. Then Z 
is cleared and - |x • k^\ is placed in the accumu- 
lator as if by a CAD or CSB order. If now Z was 
true enter "the correction sequence" with action 
like that in CAD or CSB. Otherwise enter ADD or 
SUB to form |a - k e \ - |x • k 7 [. Action from 
this point on is identical to the ADD or SUB order, 

STR (12*0 Normalize Round and Store . If Z is on, store 0„^ in F0 and 

subsequently in the memory location specified. 
Otherwise normalize. If Z is now true, store 
O.k . From this point on the accumulator is 
not changed, but the number stored may be changed. 
Form a . This may still be normalized or it may 
take on the undesired values +1, -l/k. In the 
latter two cases change this to +l/k s -1 and 
respectively add 1 to the exponent or subtract 1 
from the exponent. If now the exponent is < -6k 
store floating-point zero. If the exponent is 
> +6k set 0V. If floating-point zero is not 
stored, store the number obtained by the above 
operations. Since only a 7-bit exponent is 
stored the exponent is stored modulo 128. 
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XCH (125) Exchange . The new value of the memory register is the same 

as if STR were executed. The new value of the 
accumulator is the same as if CAD were executed. 
Note that for C = 3 the case B = 1 is illegal for 
this order. 

STN (127) Store Negatively . The accumulator is normalized and -a is 

transferred to a and a„ is cleared. Then STR 

m i/ 

is executed and it works all right even if 

-a .= +1. Following STR, in this case "the 
r 07 

correction sequence" would right-shift and add 
1 to e. 



STF (130) Store Fixed Point Rounded . A fixed point number is either 0.4 

or has exponent zero. If Z is not on^ a ° h is 

converted to fixed point by shifting right or left 

and counting up or down respectively on e until 

e becomes zero. If overflow in the fractional 

part occurs, OV is set and the process continues. 

After the shift the accumulator is unchanged. 

a is formed. If it is equal to +1, OV is set. 

If Z is true of a = 0. 0.4" is stored, Other- 
r 

wise a • k is stored with the exception that +1 

is stored as -1. The net result, that numbers 

are stored modulo 2 except for zero,, is called 

fixed-point representation. Z is set if the 

result is a = 0. 

STU (134) Store Unnormalized but Rounded . Identical to STR except that 

there is no preliminary normalization. The use 
of this order at key places in a program may 
considerably reduce the number of shifts prior 
to store orders and prior to succeeding add or 
subtract orders . 



-6k 
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SRM (1^3 ) Store Remainder . If this order follows a DIV, NDV, or VID 

order with no intervening Delayed Control orders, 
the remainder (unnormalized, unrounded, hut 
correctly represented even if zero) is stored 
from the R, ES registers . Since R, ES are used 
by most instructions, the use of this order 
following a non-divide order might be useful for 
engineering routines, hut a catalog of results 
expected would he voluminous. SRM following a 
divide order sets overflow if the remainder has 
an exponent > 6k, which can happen even when the 
quotient is in range. 

STC (126) Store Clear . The accumulator is not cleared. The f irst part 

of this instruction coincides with STR. Suppose 

a = a + 2~ e where € = or 1. Then a * k = 

r m 

(a + >T 2 %) . k e = [& + k- 22 ( a » - e)].. k e = 

m - e-22 

a • k e + (&„ - e)k . Now STR stores a number 

r * 

numerically equal to a ' k . STC after doing 
this, transfers a* - e to a , clears a^ to zero 
and subtracts 22 from e so the accumulator holds 
the remainder from the store operation. Z is 
set if a, - e = or if e - 22 < -128. This 
order allows a double-precision representation in 
memory in which the most significant half is 
correctly rounded, and, if STU follows STC, the 
least significant half has an exponent nearly 
always 22 less than the most significant half. 
The exceptions to this rule are when the most 
significant half rounds to +1 or -l/k, or when the 
least significant half is judged zero. 

ASC (ll6) Add and Store Clear . Identical in effect to ADD followed by 

STC. Note that C = 3 and B = 1 is illegal. 

SSC (11^) Subtract and Store Clear . Identical in effect to SUB followed 

by STC. Note that C = 3 and B = 1 is illegal. 
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SIF (131) Store Integer Part as a Floating-Point Number . " If Z is not 

true, the accumulator is shifted (see STF) until 
its exponent becomes equal to +22. This means 
that the radix point lies k-k bits to the right 
of a„, that is, it lies between a and a„. If, 
during this ■ process, overflow of the fractional 

part occurs, OV is set. Then if a = or Z is 

. -6k 
true, 0,4 is sent to memory. Otherwise 

22 
a : k which is the integer part of the number 

m k-5 
modulo 2 , is sent to memory. Then "the correc- 
tion sequence" is obeyed, and it might set Z. 

45 
Note that if +2 is the correct answer, the 

45 
accumulator will have -2 , OV will have been set, 

and "the correction sequence" will not do a 

corrective right shift. 

SAM (135) Store A Most , a ° 4 is transferred to memory, regardless of 

Z. OV is not set, a is not changed and e.is 
stored modulo 128. This is not a float ing-point 
order. 

SAL (136) Store A Least , a. • 4 is transferred to memory, regardless 

of Z. OV is not set, a is not changed and e is 
stored modulo 128. This is not a floating-point 
order. 

SEQ (132) Store Rounded with Exponent Equal . This order has no operand, 

but an operand is implied in Fl. Normally, the 
previous order would have been "Load IN" (LIN) 
to be described later, but this is not necessary. 
Whatever number is in Fl at the time SEQ is 
obeyed furnishes a 7-bit exponent, and it is 
required to shift the accumulator in a manner 
exactly analogous to STF until its exponent 
becomes equal to this number and then round-off 
and store with qualifications identical to STF. 
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For the next group of orders, Advanced Control places the same address 

into all four quarters of Fl. This address is interpreted modulo 256 

* s 
for the first four and modulo 128 for SRS, LRS, and is called y and y 

respectively. The most significant bit is a two's complement sign bit. 

CAE (117) Clear Add Exponent . Place y in E. No overflow correction 

is performed. 

CSE (115) Clear Subtract Exponent . Place -y in E. If y = -128 set OV. 

* 
ADE (113) Add to Exponent . Place e + y in E. Set OV or Z if the range 

-128 < exponent < 127 is exceeded, but do not 

set OV if Z is true. 

SBE (111) Subtract from Exponent . Place e - y in E. Set OV or Z if 

the range -128 < exponent < 127 is exceeded, but 

do not set OV if Z is true. 

SRS (1V7) Short -Logical Right Shift . If y S is positive, translate the 

digits of the A register right 2y bits without 
sign digit duplication and throw away those that 

g 

pass the right hand end of the a . If y is 
negative, translate the digits of a m left, throwing 
away those that pass the left end of the register. 
Do not set OV. Z may be set. This is a logical 
order which would not be useful in floating-point 
programs. NOTE:! 2y S bits are y base k shifts . 

LRS (1^5) Long Logical Right Shift . The double length equivalent of SRS 

above. This is also a base k shift. 

Of the Delayed Control orders, there remain only two store 
orders which produce 13-bit results to be transferred to modifier 
registers in the fast memory. 

SEX (137) Store Exponent . A word whose first 39 digits agree with the 

first 39 digits of a» and whose last 13 digits 
agree with the 8-bit exponent e extended five 
digits left by duplication of the sign digit, is 
place on FO, then the l/k word of FO aligned with 
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M_ is copied into 1VL. If the modifier register 
specified is M3, M7, Mil, or ML5, the last l/k, 
i.e., the exponent, is stored in it. This is 
a logical order and Z is disregarded. The C field 
of the SEX order has no effect. 

SIA (133) Store Integer Address . The accumulator is shifted until its 

exponent is equal to +6 in a manner similar to 
SIF. If the base k exponent is +6 the radix point 
lies between the 13th and lVth digits of the A 
register. OV or Z may be set during the shift but 
if Z was true beforehand, no shift is made. Now 

if a = or Z is true, 0.4" ' is placed in F0„ 

m 

Otherwise a • h e is placed in TO. If the modifier 
m 

register specified is one of MO, Uk } M8, or M12 

the first quarter word, i.e., the integer part of 

13 
the accumulator, modulo 2 , is copied into the M_. 

Otherwise a different quarter word is copied 

(see SEX). The C field of the SIA order has no 

effect . 
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3.4 Orders Which Do Not Involve Floating Point 

The orders described in the last section are obeyed first by 
Advanced Control, which obtains any needed operand and places it in Fl, 
then by Delayed Control which performs any necessary floating-point arith- 
metic, and then, in the case of store orders, by Advanced Control again. 
SIA and SEX were a special type: always short, B represents the modifier 
and C is irrelevant. Otherwise address construction was fairly uniform: 
if C < 3 or C = 3, B = 8 an address is constructed and depending on the 
order type this either defines a core memory location, or the address is 
quadruplicated and used. Let us refer to this process as normal address 
construction . For floating-point orders additional options were provided: 

C = 3 and B < 8 means fast register F^ with the proviso that Fl is not a 

si 

destination, C = 3, B = 1 is illegal for certain orders. Likewise floating- 
point operands were generated for the cases C = 3> B > 9. These additional 
options do not apply to the next class of orders: Advanced Control and 
Interplay orders with normal address construction. If C = 3 and Bf 8 
these orders are illegal. 
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3.U.1 Interplay Orders 

*PID (023) Prepare Input Device . After the address is constructed it is 

sent to Interplay and is interpreted as a five-bit 
field at the left-hand end signifying the channel 
number and an eight -bit field specifying details 
of a block transfer into the core memory. At the 
time of this writing., channel has been assigned 
to the drum and the eight-bit field represents 
the drum block. No other assignments have been 
made yet. 

*P0D (062) Prepare Output Device . Similar to PID above except that a 

transfer from the core memory is intended. 

*IBT (022) Initiate Block Transfer . The address constructed specifies 

the core address at which the transfer will start. 
Depending on the device in question, the transfer 
will cease when a stop character is reached or 
when the core address reaches an address 1 less 
than the next multiple of 256, whichever happens 
sooner. In the case of the drum, and probably 
all devices which operate on a fixed 256-word 
block, only the first five bits of this address 
matter--the others are replaced by zeros so a 
drum transfer always begins at a core address 
which is a multiple of 256 and ends at the address 
one less than the next multiple of 256. 

PID, POD, IBT are the only orders obeyed by Interplay. They may be used 
only when Interrupt is disabled. When the system program is in the 
machine, the user must do his input -output via system subroutines 
described in Chapter 5* 
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3.^.2 Block Reservation Orders 

*BBF (0^3) Busy Block Flipflop . The first five bits of the address con- 
structed define a block in core memory whose 
indicator is to be set to the "busy" state. 

. *FBF (CA-2) Free Block Flipflop . The first five bits of the address con- 
structed define a block in core memory whose 
indicator is to be set to the "free" state. 
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3.4.3 Advanced Control Orders 

LIN (060) Load IN Register . Four copies of the constructed address are 

placed in PI. This order usually precedes SEQ. 

JLH (05^) Jump to Left-Hand Control Group . A "jump" instruction is a 

control transfer or branch operation. JLH has 
the effect that the next order obeyed begins at 
the first control group of the core word defined 
by the address. This is an unconditional jump 
which lacks generality and is mainly useful in 
returning from a subroutine. 

ATN (02l) Add to Next Address . Certain orders, of which this is the 

first example, influence the addres~s construction 
of order following. The address formed by this 
instruction is added to the address of the next 
instruction and then this next instruction is 
obeyed normally. ATN may be repeated. Example: 
suppose one wished to copy into the accumulator 
the number from the memory location defined by 
the sum of modifiers M2, M5, M7. The program is 

ATN 2,0 
ATN 5,0 
CAD 7>0 or 3 short orders. 

The first instruction adds (M2) to the second. 
The second would normally add (M5) to the third, 
but since it has (M2) added to its address it 
therefore adds (M2) + (M5) to the third instruc- 
tion. The third instruction would normally have 
core address (M7) but this is increased by 
(M2) + (M5) making a total of (M2) + (M5) + (MT) 
as required. 

SFN (04l) Subtract from Next Address . The address formed is subtracted 

from the address of the next instruction. Note that 
two SFN orders in a row have the effect of adding 
the first address and subtracting the second. 
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ORB (06l) Logical OR with B Digits of the Next Instruction . The right- 
most four bits of the address constructed are 
combined with the four B bits of the instruction 
following — the next next instruction will have 
zeros only in those bit positions of the B field 
where both bits are zero. This is a useful 
instruction for breaking up words into quarter 
words, but is not very useful for combining quarter 
words into words. 

This completes the list of instructions for which normal address 
construction applies. The next group of instructions are always short. 

*ASN (032) Add Special Register to Next Address . This is a short instruc- 
tion. Provision is made in the computer for up 
to 6k 13-bit registers called special registers. 
The address of this instruction and the two sub- 
sequent instructions is the number Ij-B + C 
(between and 63). The registers are used as 
i/O channel condition registers and for special 
i/o (e.g., to paper tape for engineering and to 
typewriter for system comments). They cannot be 
used by the programmer unless interrupt is disabled. 

*SSN (072) Subtract Special Register from Next Address . This is a short 

instruction. Similar to ASN except that sub- 
traction rather than addition is done. 

*SSR (073) Store in Special Register . This is a short instruction, and 

its address is zero unless SSR was preceded by 
an "add to next" type order. The B, C fields 
specify which special register the address is 
to be stored in. If an instruction such as ATN 
had preceded this instruction, then, in general, 
something other than zero would be stored in the 
special register. 
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CJF (057) Count and Conditional Jump to First . This is a short 

instruction. One is added to the contents of 
modifier M_ and the result is returned to WL. If 
the result is non-zero, jump to the instruction 
at F8 position C (c = 0, 1, 2, or 3); otherwise 
obey the next instruction in sequence. The 
purpose of this instruction is to be able to 
obey simple loops of instructions inside P8 and 
F9 if the loop condition is just a count. In 
These cases the instruction words are read from 
memory just once and are held in F8 and F9 for 
repeated execution. F8 contains the contents of 
an even-numbered core memory location, and F9 
holds the contents of the next higher-numbered 
location, which is odd. Note that this implies 
that the normal method of counting is to place the 
negative of the count in a modifier register and 
count up to zero. For a long program consisting 
of long and short instructions intermixed, the 
programmer would refer to instructions symbolically 
and would not, in general, know what word and 
position any instruction occupied. One of the 
operations which the assembly routine must be 
able to do is to insert a jump to the left-hand 
control group of the next even address so these 
short loops may be correctly positioned. During 
the period when there is only one core memory CJF 
will have the effect of conditionally jumping to 
F9, position C which means jump to position C of 
the word containing the present instruction. 

CJS (055) Count and Conditional Jump to Second . This is a short instruc- 
tion, whose action is similar to CJF above except 
the destination is F9, position C. During the 
period when there is only one core memory the 
action of CJS is identical to the action of CJF. 
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The next group of instructions are always long, and N, the 
second control group, specifies the address. 

CJU (077) Count and Jump if the Result is Unequal to Zero . Long. Add 

one to (Mg) and return the result to modifier ML. 
If it is non-zero Jump to word N, position C^ 
otherwise obey the next instruction in sequence. 

CJZ (037) Count and Jump if the Result if Zero . Long. Add one to (M_) 

and return the result to modifier ML. If it is 
zero, jump to word N, position C; otherwise obey 
the next instruction in sequence. This is a very 
rarely used instruction — CJU would he much more 
common in programs. 

JEM (07*0 Jump if Positive Modifier . Long. If the leftmost' of the 13 

bits of (Mg) is a 0, jump to N, position C,* 
otherwise obey the next instruction in sequence. 
We may regard the integer held in M_ as either 
lying in the range -k-096 < (M_) < 4095 if the 
leftmost digit is regarded as having negative 
weight or lying in the range to 8191 for core 
addresses, or -8191 to for orders like CJF, 
CJS, CJU, CJZ. 

JNM (034) Jump if Negative Modifier . Long. If the leftmost of the 13 

bits of (ML.) is a 1, jump to word N, position C. 
Otherwise obey the next instruction in sequence. 

JZM (035) Jump if Zero Modifier . Long, If all 13 bits of (M_) are 

zeros, jump to word N, position C. Otherwise 
obey the next instruction in sequence. 

JUM (075) Jump if Modifier is Unequal to Zero . Long. If the 13 bits 

of (ML) are not identically zero, jump to word N, 
position C. Otherwise obey the next instruction 
in sequence. 
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JSB (076) Jump to Subroutine . Long, Let H be the location of the N 

address of this JSB instruction. Place H + 1 into 
M_ and jump to word N, position C. Conventionally 
B = 3 and the subroutine returns control to the 
left-hand control group of the word following the 
JSB instruction. Thus entry to a subroutine at 
location S would be accomplished by JSB 3> ®> s 
and return from subroutine would be accomplished 
by JLH 3> 0, • 

JDC (O56) Jump on One of a Diversity of Conditions . Long. The B field 

specifies one of 16 possible conditions to be 
tested. If the condition is true, the next instruc- 
tion is obeyed from word N, position C. Otherwise 
obey the next instruction in sequence. The 
conditions are: 

B = Unconditional. This also causes the 

computer to leave the interrupt mode if 
it happens to be in it. 

B = 1 Unconditional. This does not change the 
interrupt status. 

B = 2 Accumulator positive or zero (Z on or a > 0) 

B = 3 Accumulator negative and not zero. 

B = U Accumulator unequal to zero (Z not on). 

B = 5 Accumulator zero. 

B = 6 Accumulator positive and not zero. 

B = 7 Accumulator zero or negative. 

B = 8 OV on. 

B = 9 OV not on, 

B = 10 OV on "1 , ^ n „ T .„ . . 

>■ and then clear OV if it was on. 

") B = 11 OV not on J 

/ ^h ) B = lit Digit a n = (useful mainly in logical 
%-. IS Gr*e* 5w. T>ou>« <"<** 1 > J operations . 

B = 15 Digit a Q = 1 (useful mainly in logical 
operations. 

Note that if B £ or 1 this jump is conditional 
on the arithmetic result after Delayed Control 



Date : 7/9/64 

Section: 3 •4=3 

Page: 5 of 6 

Change : 1 



has finished any instruction in progress and 
quite possibly another instruction prepared by 
Advanced Control. Such JDC orders can greatly 
slow down the machine, and one of the objectives 
of good programming is to reduce the number of 
these, at least in critical parts of a program. 
B = 12 and B = 13 test an engineering switch and 
therefore should not be used. (Normally 12 would 
have the same effect as 1, and 13 would have the 
same effect as 0. ) Other mnemonics may be used 
for these orders to save remembering the meaning 
of the B field digits. They are listed at the 
end of this Chapter. 

LDM (07l) Load Modifier from Core Memory . Long. The quarter word aligned 

with M^ in word N in memory is copied into Mp. 
If B = 0, k, 8, or 12 this would be the first 
quarter word; if B = 1, 5, 8, or 13 this would 
be the second quarter word, etc. 

The remaining instructions are long if C = 2 or 3, and short 
if C = or 1. The address is if the instruction is short, and N if 
the instruction is long. If preceded by an "add to next" type order, 
the or N is appropriately modified. 

LFR (070) Load Fast Register . Long if C = 2 or 3- Copy the word from 

core location given by the address into F_. If 

B 
B = or 1 or B > 8 the instruction is illegal. 



SFR (030) Store Fast Register . Long if C = 2 or 3. Copy the word from 

F^ into the core location, 
the instruction is illegal. 



F^ into the core location. If B = 1 or B > 8 
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3.k.h Modifier Arithmetic 

The remaining 12 orders cause the address to he combined with 
the contents of a modifier. The result is either returned to the modifier 
or added to the address of the next order according to the following rules; 

C = means that the address is zero (short order) and the result 
is returned to the modifier. 

C = 1 means that the address is zero (short order) and the result 
is added to the address of the next order. 

C = 2 means that a second control group provides an address N 
(long order) and the result is returned to the modifier. 

C = 3 means that a second control group provides an address N 

(long order) and the result is added to the address of the 
next order. 

Note that if one of these orders is preceded by an "add to next" type 
order, the or I address is appropriately modified. To avoid writing 
out the C field explicitly when it is 1 or 3; a second set of mnemonics 
are listed at the end of this chapter. These have the effect of the 
associated order described below with an odd C field. They are all 
derived from the following mnemonics by changing the final ML to an N 
(for "add to next"). 

CAM (027) Clear Add Modifier . Long if C = 2 or 3- The result equals 

the address. 

CSM (025) Clear Subtract Modifier . Long if C = 2 or 3. The result 

equals the negative of the address. 

APM (067) Add to Modifier .' Long if C = 2 or 3. (Mg) plus the address 

is the result. 

3BM (065) Subtract from Modifier . Long if C = 2 or 3. (Mg) minus the 

address is the result. 
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CUM (02*0 Clear Negate Modifier . Long if C = 2 or 3- The digitwise 

complement of the address is the result. The 
digitwise complement of a binary number is the 
number consisting of zeros where the original 
number had ones, and vice versa. In this case, 
numerically, the digitwise complement is 8191 
minus the address. 

ORM (026) Circular Right Shift Modifier . Long if C = 2 or 3- The four 

rightmost bits of the address define a number of 
shifts p where < p < 15 . The result is the 
modifier contents (ftL) rotated right circularly p 
places. Note that a shift of 13 places brings it 
back to where it started from so 
p = 13 has the same effect as p = 0,, 
p = 1^- has the same effect as p = 1, 
p = 15 has the same effect as p = 2. 

ANM (CA-7) ANP with Modifier . Long if C = 2 or 3- The 13 bits of the 

address are ANDed with the corresponding bits of 
(Mp) to form the result. A bit. position of the 
result has one if and only if both operands had 
ones in that digital position. 

ORM (0U6) OR with Modifier . Long if C = 2 or 3. The 13 bits of the 

address or ORed with the corresponding bits of 
(NL) to form the result. A bit position of the 
result has a if and only if both operands had 
zeros in that digital position. 

EOM (066) Exclusive OR with Modifier . Long if C = 2 or 3. The exclusive 

OR (or addition without carries) of the 13 address 
bits and the 13 (M„) bits is the result. The 
result has ones in those bit positions in which 
the two operands differed. 
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EQM (06k) Equivalent with Modifier . Long if C = 2 or 3. The equivalence 

function of the address and (M ) is formed in 
every digital position of the result. The result 
has ones in those hit positions in which the two 
operands agreed. 

NAM (0U5) Negate, then AND with Modifier . Long if C = 2 or 3- The digit- 
wise complement of the address if formed, and 
ANDed digit by digit with (ML) to form the result. 
The result has ones only in those bit positions 
where the address had zeros and the modifier had 



ones. 



NOM (Okk) Negate, then OR with Modifier . Long if C = 2 or 3- The digit - 

wise complement of the address is formed and ORed 
digit by digit with (M^) to form the result. The 
result has zeros in those bit positions where 
the address had ones and the modifier had zeros. 
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3.5 Tables 

3.5.I Table 1. Address Construction 



Normal : LAL, CAD, CSB, CAT, CST, NOT, AND., LOR, BLS, ADD, SUB, 
MPY, DIV, NDV, VID, DAV 

Normal, C = 3, B = 1 or B > 9 illegal : STR, STU, STN, STC, STF, 

SIF, SEQ, SAM, SAL, SRM, 
ASC, SSC, XCH 

Normal, C = 3, B / 8 illegal, address used as operand : CAE, CSE* ADE, 

S-BE^ SRS^ LKoj 
LIN, *PID, 
*POD, *IBT, 
*BBF, *FBF, 
JLH, ATN, SFN, 
ORB 

Short, B means VL : SIA,. SEX, CJF, CJS For SIA, SEX C has no effect. 

Short, 4B + C is name of special register : *ASN, *SSN, *SSR 

Long, C represents l/k W except for LDM : CJU, CJZ, JPM, JNM, JZM, 
— ' " "" JUM, JSB, LDM, JDC 

C = 2 or 3 Means Long : LFR, SFR 

C = 2 or 3 Means Long, C odd Means Add to Next : CAM* CSM, ADM, SBM, 

CNM, CRM, ANM, ORM, 
EOM, NAM, NOM, EQM 



Order is interrupted unless interrupt is disabled, 
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3-5-2 Table 2. Special Case Information on Instructions 



LAL, CAP, CSB, CAT, CST, NOT, AND, LOR, BLS Clear Z first 



ADD, SUB, MPY, ASC, SSC 

DIV, NDB, VXD 

STR, STU, STN, STC, STF, SIF, SEQ, SIA 

SAM, SAL, SEX, SRM, SRS, LRS, LIN 

CAE, CSE, ADE, SBE 

XCH 

PID, POD, IBT, BBF, FBF, ASN, SSN, SSR 



Special cases if Z is true 
or if y = -6k 

Special cases if Z is true 
or if x = 

Special cases if Z is true : 
the operand used is x U~°^ 

Disregard Z 

Z or OV may be set. If Z 
is true OV is not set 



Special case if Z is true 
(0 . k-- 6 *). Then clear Z 

Cause Interrupt if in 
interrupt enabled mode 
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3.5-3 Table 3. Order Code Index 



Order 


Codes 


Section No. 


Page No. 


Order 


Codes 


Section No. 


Page No. 


ADD 


112 


3.3.9 


2 


LAL 


141 


3.3.9 


4 


ADE 


113 


3.3.9 


8 


LDM 


071 


3.4.3 


6 


ADM 


067 


3.4.4 


1 


LFR 


070 


3.4.3 


6 


AND 


105 


3.3.9 


1 


LIN 


060 


3.4.3 


l 


ANM 


047 


3.4.4 


2 


LOR 


106 


3.3.9 


l 


ASC 


116 


3.3.9 


6 


LRS 


145 


3.3.9 


8 


*ASN 


032 


3.4.3 


2 


MPY 


120 


3.3.9 


3 


ATN 


021 


3-4.3 


1 


NAM 


045 


3.4.4 


3 


*BEF 


Oi+3 


3.4.2 


1 


NDV 


122 


3.3.9 


3 


BLS 


107 


3.3.9 


2 


NOM 


044 


3.4.4 


3 


CAD 


102 


3.3.9 


1 


NOT 


104 


3.3.9 


2 


CAE 


117 


3.3.9 


8 


ORB 


061 


3.4.3 


2 


CAM 


027 


3.4.4 


1 


ORM 


046 


3.4.4 


2 


CAT 


103 


3.3.9 


l 


*PID 


023 


3.4.1 


1 


CJF 


057 


3.4.3 


3 


*POD 


062 


3-4.1 


1 


CJS 


055 


3.4.3 


3 


SAL 


136 


3.3-9 


7 


CJU 


077 


3.4.3 


4 


SAM 


135 


3.3.9 


7 


CJZ 


037 


3-4.3 


4 


SBE 


ill 


3.3.9 


8 


CNM 


024 


3.4.4 


2 


SBM 


065 


3.4.4 


1 


CRM 


026 


3.4.4 


2 


SEQ 


132 


3.3.9 


7 


CSB 


100 


3.3.9 


l 


SEX 


137 


3.3.9 


8 


CSE 


115 


3.3.9 


8 


SFN 


o4i 


3.4.3 


l 


CSM 


025 


3.4.4 


1 


SFR 


030 


3.4.3 


6 


CST 


101 


3.3.9 


1 


SIA 


133 


3.3.9 


9 


DAV 


142 


3.3.9 


4 


SIP 


131 


3.3.9 


7 


DIV 


121 


3.3.9 


3 


SRM 


143 


3.3.9 


6 


EOM 


066 


3.4.4 


2 


SRS 


147 


3.3.9 


8 


EQM 


o64 


3.4.4 


3 


ssc 


114 


3.3.9 


6 


*FBF 


042 


3.4.2 


1 


*SSN 


072 


3.4.3 


2 


*IBT 


022 


3.4.1 


l 


*SSR 


073 


3.4.3 


2 


JDC 


O56 


3.4.3 


5 


STC 


126 


3.3.9 


6 


JLH 


054 


3.4.3 


l 


STF 


130 


3.3.9 


5 


JI3M 


034 


3.4.3 


4 


STN 


127 


3.3.9 


5 


JPM 


074 


3.4.3 


4 


STR 


124 


3.3.9 


4 


JSB 


O76 


3.4.3 


5 


STU 


134 


3.3.9 


5 


JUM 


075 


3.4.3 


4 


SUB 


110 


3.3.9 


2 


JZM 


035 


3.4.3 


4 


VID 


123 


3.3.9 


3 










XCH 


125 


3.3.9 


5 



NOTE: The page number indicates where the order is defined in the 
text. 



Order is interrupted unless interrupt is disabled. 
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3.5.4 Table 4. Order Code Listed Numerically 



Second 

Octal 

Digit 



Binary- 


02 

03 
04 

05 
06 
07 




ATN 


*IBT 


*PID 


CNM i 


CSM 


CRM 


CAM 


i 


Followed 
by First 


SFR 




*ASN 




JNM 


JZM 




CJZ 


j A.C. Orders 


Octal 
Digit 




SFN 


*FBF 


*BBF 


NOM 


NAM 


ORM 


ANM 














JLH 


GTS 


JDC 


CJF 






LIN 


ORB 


*POD 




EQM 


SBM 


EOM 


ADM 






LFR 


LDM 


*SSN 


*SSR 


JPM 


JUM 


JSB 


CJU 






10 

1 

11 

12 

!3 

14 


CSB 


GST 


CAD 


CAT 


NOT 


AND 


LOR 


BLS 


D.C. Orders 




SUB 


SBE 


ADD 


ADE 


SSC 


CSE 


ASC 


CAE 






MPY 


DIV 


NDV 


VID 


STR 


XCH 


STC 


STN 






STF 


SIF 


SEQ 


SIA 


STU 


SAM 


SAL 


SEX 








LAL 


DAV 


SRM ; 




LRS 




SRS 





NOTE: All unassigned order are illegal, namely the blanks in this 

table and orders whose first digits are 00, 01," 15, l6, or 17. 



Order is interrupted unless interrupt is disabled. 
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3. 5 » 5 Table 5° Additional Mnemonics 



CAN ^ 

CSN 

ADN 

CNN 

CRN 

ANN 

ORN 

EON 

EQN 

NAN 

NON j 



> 



are equivalent to 



f CAM ^ 

CSM 

ADM 

CNM 

CRM 
J ANM \ with an odd C field. 

ORM 

EOM 

EQM 

NAM 
V. NOM j 



TEI 

TRA 

TZP 

TN 

TU 

TZ 

TP 

TZN 

TO 

TNO 

TOR 

TNOR 

TLP 

TLN 

CALL 
CAJ 



Transfer 


and enable interrupt 


Transfer 
Transfer 


if 


zero or plus 


Transfer 


if 


negative 


Transfer 


if 


unzero 


Transfer 


if 


zero 


Transfer 


if 


plus 


Transfer 


if 


zero or negative 


Transfer 


if 


overflow 


Transfer 


if 


no overflow 



Transfer if overflow and reset 
Transfer if no overflow and reset is 
Transfer if logical plus 
Transfer if logical minus 



is 


JDC 





is 


JDC 


1 


is 


JDC 


2 


is 


JDC 


3 


is 


JDC 


k 


is 


JDC 


5 


is 


JDC 


6 


is 


JDC 


7 


is 


JDC 


8 


is 


JDC 


9 


is 


JDC 


10 


is 


JDC 


11 


is 


JDC 


Ik 


is 


JDC 


15 



is assembled as JSB3, and in addition it loads the subroutine 
into memory (see Chapter k) and it fills up the current word 
so that the subroutine return can be made with a JLH 3*0, . 

is assembled as either CJU, CJF or CJS. 
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k. NICAP, THE ASSEMBLY PROGRAM 

k.l Introduction 

The assembly program is designed to allow the programmer writing 
in machine language to program without thought to the many different address 
constructions that are used internally and yet enable him to produce an 
efficient program. It is not intended that this complex assembler should 
replace compilers, but it is hoped that some jobs for which the programmer 
turns to a compiler because of involved addressing can now be handled by 
this assembler, giving a more efficient object program. 

For this reason a very general format is allowed in the address 
field of most orders. This format is, in most cases, self-explanatory. 
The address field can contain, for example, a direct indication of multiple 
indexing, which will result in more than one order being assembled. In 
this sense, the assembler performs a compilation on the address field. 

Additionally, to give the flexibility necessary to those who wish 
to write in a (l-l) transformation of the machine language, multiple field 
address formats representing each of the three (B, C and N) address fields 
are allowed. 

To allow for future machine and system expansion, programs should 
be written in a relocatable form. This can be achieved simply by never 
using absolute addresses to refer to memory. If the first ORG pseudo- 
operation is omitted, then the program will be automatically relocated to 
start in the first free area of memory. 
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k.2 Card Format 



1 6 



8 13 



Ik 



15 



32 



33 



72 



73 80 



Location Mnemonic Address 



Comment 



Identification 
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k.2.1 Location Field 

Columns 1 to 6 are the location field and may contain a one to 
six-character name . A name may consist only of alphanumeric characters, 
and must contain at least one alphabetic character. A name is a symbolic 
representation of one of four elements in the machine, and it is given a 
title accordingly. 

The four subtypes of names are: 

(l) Symbol the name of the location of a full word. 

the name of the location of a quarter word. 

the name of a modifier register or index 
register, 

(h) Register the name of a fast register. 

As with most assemblers, all names used must be defined at some 
point in the program. They are normally defined by appearing in the 
location field of a card. This will define both the type of name and 
its absolute value. An exception is made in the case of 2k names which 
are predefined. 

These are MO, Ml, ..., ML5, and FO, Fl, ..., F7 which are names 
for the modifiers to 15 and the fast registers to 7 respectively. 
These may not be additionally defined by the programmer. 

Any name starting with SYS should be avoided by the programmer 
since all system program routine names will start thus. The type of name 
that is defined by a card is determined by the mnemonic field discussed 
below. Following the location field column 7 is blank to provide a 
separation between the name and the mnemonic fields. 

An * in column 1 indicates a comment card. The remainder of the 
card is ignored. 
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U.2.2 Mnemonic Field 

Columns 8 to 13 contain a one to six- character mnemonic. This 
mnemonic may he either: 

(1) an order 

(2) a pseudo order 

(3) an i/p pseudo instruction 
or 

(k) a macro order 

As a general rule, names appearing in the location fields of these types 
are defined as : 

(1) labels 

(2 ) symbols 

(3) symbols 
or 

(k) labels 

respectively. 

Exceptions occur in the case of pseudo-orders (case (2)) and 
are noted in their descriptions below. Details of the operation of orders 
are given in Chapter 3, of the pseudo-orders and macro-orders in this 
chapter and of the operation of the i/o pseudo-instructions in Chapter 5. 
The address constructions of all mnemonics are listed later in this chapter. 

Following the mnemonic field, Column 1^ must contain a blank 
to separate the mnemonic field from the address field. 
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4,2.3 Address Fields 

Columns 15 on to the first "blank character after column 15 or 
on to column 72, whichever occurs first, contain the address information. 
This field can contain an arbitrary number of characters up to 58 which 
determine the address of the order. The various address constructions 
are listed in section 4.3. 
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k.2.k Comments Field 

Anything that occurs after the first blank following column 15 
but not before column 33 or after column 72 is comment, and is simply 
reproduced on the output listing. 

Comments may also be placed anywhere on a card with an * in 
column 1. 




k.2 f 5 Identification Field 

Columns' 73 to 80 are also reproduced on the output listing, 
but are normally used for card identification only. They do not affect 
the program in any vay. 
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^♦3 Address Construction 

The types of address format allowed depend, in part, on the 
mnemonic. The most general form of address that is allowed can he stated 
as being either: 

(1) A register name F, e.g., F3 or some other name for it. 
or 

(2) Any algebraically meaningful expression E containing numbers 
(decimally represented), symbols (representing numbers), 
tags (representing modifiers), the algebraic operators 

+, -, *, (multiply) and / (divide), and the parentheses 
( and ), Algebraically meaningful means that the 
expression satisfies the conventional rules and that 
multiplication is always written explicitly as *, e.g., 
-(lO+A) * (M5+7) may not be written as (lO+A)(M5+7). 

Various restrictions are applied to these rules for different 
classes of mnemonics^ for example, most pseudo-orders do not allow the use 
of tags since pseudo-orders generally are "obeyed" at assembly time and 
tags, by definition, only have meaning at execution time. 
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4.3.1 Machine Evaluation of Address Expressions 

Rules that are observed "by the machine in calculating these 
addresses are as follows : 

(1) If no tags are involved, the expression is 
evaluated modulo 8192 at assembly time. 

(2) If tags are involved, the rules are more complex. 
Essentially an effort is made to write a piece of 
program that will construct the address at execution 
time with a minimum of orders. The result of this 
is that if any modifier appears inside a parenthesis 

or is involved in a multiplication or division, MO, the 
accumulator, FO and Fl are changed before the order 
is executed. 

Two problems can arise in complex expressions due to the fact 
that addresses are computed in the accumulator when modifiers are 
involved in multiplication, division, or parenthetical expressions. The 

first is that the accumulator will lose least significant bits if the 

hk 
result gets larger than 2 . Truncation modulo 8192 does not take place 

until the last item has been evaluated in the accumulator. The second 

problem concerns division which is performed in rounded floating-point 

to kk places. The result is not truncated to an integer until the last 

evaluation in the accumulator has been completed. Thus the address 

field of 



will give an address of 



whereas 



7/2 + 9/2 



3 + 4 = 7, 



M3/2 + M4/2 



will give an address of 
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if M3 contains 7 and M4 contains 9 at execute time. 

Division is not generally a useful operation, so it is "best to 
avoid it unless either 

(1) It does not involve tags. 

(2) The answer is known to he an integer 
or 

(3) Only one division is used, and the result is not 
involved in a subsequence multiplication. 

Examples of Addressing 

(1) CAD M4+A will clear and add the number in location A plus the 
contents of Uk at execution time. 

(2) If a matrix A. . is stored by row in A to A + RM - 1 where M is the 
length of a row and N the length of a column, and tags I and J are 
the modifiers which contain i and J, then we can load modifier k 
with the address of A., with 

CAM >,A + 1-1 + M*(J-l) 

where M is assumed to be defined as a symbol equal to the numerical 
value of M, 
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J+.3-2 Illegal Use of Names in Address Fields 

The use of symbols for labels and labels for symbols is 
permissible. It will cause an error to be listed, "but the substitution 
will he made in a natural way, that is, 15-bit labels will he truncated 
to 13-bit symbols and 13-hit symbols will have two zero bits added to make 
them labels. 

If registers or tags are used illegally, an error will he listed, 
and the name will now he interpreted as a symbol with value zero in order 
to allow the assembler to search for further errors. 

Undefined names will he treated similarly. 

Labels may he defined absolutely or relative to the program. 
Symbols may be so defined, and, additionally, may be defined relative to 
the common area or the erasable area. The address of an order must not be 
relocated more than once, or an error will he listed. There are, however, 
cases where this is legitimate. For example: CAM 8, A-B+C where A, B 
and C are program relocatable gives the address C which is relocatable plus 
the difference between A and B which is absolute. To handle this, the 
relocation bits are "exclusive ORed" so that double relocation (CAM 8, A-B) 
causes no relocation, etc. 

Addresses that are too garbled for the assembler to understand 
cause the whole card to be rejected. Instead the quarter word 17700 is 
assembled. This is an illegal order which causes a hang-up if interrupt 
is disabled, and an interrupt otherwise. 
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k , k Orders 



Any name defined in the location field of an order is a label 
with value equal to the quarter-word address of the first control group 
formed by the order on that card. 

The address construction for the order depends on the order type. 
The cases are listed separately below. 

There is one form, called the normal form which can be used for 
all orders except for some extended mnemonics . The B, C and N fields are 
listed separately, in that order, and separated by commas in the normal 
address construction. The length of the order is determined by the B and 
C digits and the order type. The B field can be numeric between and 15, 
and, in some cases, may be a tag or a register. The C field must be numeric 
between and 3. The N field is a general address field which may be subject 
to restrictions for some order types. Other address constructions have 
been included in order that the programmer will not have to do an unnecessary 
amount of writing or remember exactly how each order forms its address. For 
example, to load the number from location A into the accumulator, the order 

CAD 8, 3, A 

can be written in the normal form. It can, however, also be written as 



CAD A 
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k.k.l Type 1 Orders 



ADD 


Add 


AND 


AND 


CAD 


Clear Add 


CAT 


Clear Add Twice 


CSB 


Clear Subtract 


CST 


Clear Subtract Twice 


DAV 


Difference Absolute Values 


DIV 


Divide 


LAL 


Load A Least 


LOR 


Logical OR 


MPY 


Multiply 


NDV 


Negative Divide 


NOT 


NOT 


SUB 


Subtract 


VID 


Inverse Divide 



The straightforward way to use these instructions is to use a single 
address field, If this consists of a register name F, say F5, then the 
order uses the contents of that fast register as the operand. It is 
assembled as one short order, e.g., CAD F5 has a B field of 5 and a C 
field of 3, so is equivalent to CAD 5,3, in the normal form and puts the 
contents of F5 in the accumulator. If the address field consists of an 
expression E, the value of the address at execution time is the value of 
the expression, using the value of the modifiers current at execution 
time. This may result in more than one order being compiled. For example 
the following pairs are equivalent: 

CAD M5 is equivalent to CAD 5,0, 
CAD M5 + 301 is equivalent to CAD 5,2,301 
CAD M**. + M7 is equivalent to ATN 4,0, 

CAD 7,0, 



and 
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CAD M^-M7+301-M9 is equivalent to ATN 7,0 

SFN 9,0 
CAD li-, 2,301 

These instructions fill the accumulator with the number from the memory- 
address indicated. 

Thus multiple indexing, which on the machine is performed by- 
preceding the instruction by a series of "to next "-type instructions, 
can be indicated in the address field. 

Another form of addressing for this class of orders is the 
"normal" form 

B, C, E 

where B is a number, C is a number and E is any expression which should 
be blank if the order is short, that is if 

C = 0,1 or if C - 3 and B / 8, 9, or 10 

B may also be a tag if C £ 3, or a register if C - 3- 

The third form consiats of any expression E followed by the 
decimal point (.). This is equivalent to B = 9 and C = 3, so that the 
address is used as an integer operand. 

Thus ADD E. is equivalent to ADD 9, 3,E, e.g., 

ADD M5+7. 

adds the integer 7 plus the contents of modifier 5 taken as an integer 
into the accumulator. Note here that the top bit of the 13-bit number 
in the modifier is used as a two's complement sign bit. Thus 8191 is 
equivalent to -1, 8190 to -2, ..., U096 is equivalent to -I+096 but 
lj-095 is +1+095 - 
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k.k,2 Ty pe 2 Orders 

ASC ADD to Store and Clear 

SAL Store A Least 

SAM Store A Most 

SEQ Store with Exponent Equal 

SIF Store Integer Part in Floating Point 

SRM Store Remainder 

SSC Subtract, Store and Clear 

STC Store and Clear 

STF Store Fixed Point Rounded 

STN Store Negatively 

STR Store Rounded and Normalized 

STU Store Unnormalized but Rounded 

XCH Exchange 

These orders can have address field identical to type 1 orders 
except that if the order would finally assemble with C = 3 and B = 1 
or B > 9 it is illegal. That is, Fl may not be used, the decimal point 
may not be used and there additionally is a restriction on B if the normal 
address structure is used with C = 3* 
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4,4.3 Type 3 Orders 



ADE 


Add to Exponent 


ATN 


Add to Next 


*BBF 


Busy Block Flipflop 


CAE 


Clear Add Exponent 


CSE 


Clear Subtract Exponent 


*FBF 


Free Block Flipflop 


*IBT 


Initiate Block Transfer 


JLH 


Jump to Left-hand Side 


LIN 


Load In Register 


LRS 


Long Right Shift 


ORB 


OR to B Digits of Next 


*PID 


Prepare Input Device 


*POD 


Prepare Output Device 


SEE 


Subtract from Exponent 


SFN 


Subtract from Next 


SRS 


Short Right Shift 



The address fields for these orders are identical to those of 
type 1 orders, except that the orders must not assemble with C = 3 and 
B / 8. Therefore, the decimal point may not be used, and a fast register 
may not appear in the address field. Note that for these orders, the 
address is generally the operand. 



* These orders cause an interrupt and should not be used when operating 
within the system. 
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k.k.k T ype k Orders 

ADM Add to Modifier 

ANM AND to Modifier 

CAM Clear and Add to Modifier 

CNM Clear and Negate to Modifier 

CRM Circular Rotate Modifier Right 

CSM Clear and Subtract from Modifier 

EOM Exclusive OR to Modifier 

EQM Equivalence to Modifier 

NAM Negate and AND with Modifier 

NOM Negate and OR with Modifier 

ORM OR with Modifier 

SBM Subtract from Modifier 

In addition to the normal address construction B, C, E two 
formats are allowed for this type of order. 

For short orders with no address, the modifier alone can be 
written. E.g., 

CAM B where B is numeric (< l6) or is a tag. 

This clears modifier B unless modified by a previous "to next" instruction. 
The second format is 

CAM B,E 

This order will be made short or long as E does or does not involve a 
numeric quantity. E.g., 

CAM 5, MJ 

assembles as 
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ATN 7,0, 
CAM 5,0, 



while 



CAM 5, M7+3 



assembles as 



ATN 7,0, 
CAM 5,2,3 

The first address (B) is the modifer referred to by the 
instruction, the second address field is the operand. Thus 

ADM 3, M7 + 3 

adds Modifier 7 and the integer 3 to modifier 3. 

Under no circumstances may B be a register name. 
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k,k,5 Type 5 Orders 

These are the "to next" modification of the preceding group with 
the C field equal to 1 or 3 instead of or 2. They can he obtained from 
the type h orders hy replacing the final M with an I, e.g., ADM becomes 
ADN, 

They are: 

ADN + Add to Next 

ANN AND with Modifier and Add to Next 

CAN + Add Address to Next 

CNN Clear and Negate to Next 

CRN Circulate Rotate and Add to Next 

CSN + Subtract Address from Next 

EON Exclusive OR with Modifier, and Add to Next 

EQN Equivalence with Modifier, and Add to Next 

NAN Negate and AND with Modifier and Add to Next 

NON Negate and OR with Modifier and Add to Next 

ORN OR with Modifier and Add to Next 

SBN + Subtract from Next 

The address field of a type 5 order can have the same format 
as type k order except that the normal address construction with 
C = or 2 may not be used. 



+ These operations perform no operation that cannot also be achieved by 
ATN or SFN except that CAN or CSN can be used as a short no operation 
provided that they are not preceded directly by an ORB order. 
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In the following group, orders which call for "Count" mean 
add one to the indicated modifier.. The Jump occurs if the modifier is 
nonzero, except for CJZ. 

k,h,6 Type 6 Orders 

CJF Count and Jump to First (if nonzero) 
CJS Count and Jump to Second (if nonzero) 

The normal form of addressing 

CJS B, C, 

may he used, The second comma may he omitted to get 

CJS B,C 

C must he numeric (0 to 3), B may be numeric or it may be a tag. 

These orders would not usually be used; rather the CAJ (type 7A) 
order would be used unless the user is interested in optimizing a very- 
short piece of program to make use of a fast loop in F8 and F9. (See 
Chapter 3 for details of the orders , ) 
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4A.7 Type 7 Orders 

CJU Count and Jump if Unzero 

CJZ Count and Jump if Zero 

JDC Jump on Diversity of Conditions 

JNM Jump if Negative Modifier 

JPM Jump if Positive Modifier 

JSB Jump to Subroutine 

JUM Jump if Unzero Modifier 

JZM Jump if Zero Modifier 

In the normal form 

CJU B, C, E 

B may only be a number or a tag. This address construction should normally 
be avoided, since it is usually better to refer to locations of orders 
by labels, which represent 15-bit rather than 13-bit addresses. (The 
extra two bits are the quarter -word address to 3.) 

This construction would find use in branching to a table of 
words, e.g., 

JPM5,1,A+M7 

would jump on positive M5 to the second quarter word of A plus Modifier 7 
(if A is a symbol). Library subroutines will also make use of this 
construction so that only one label is used in the entire subroutine, e.g., 
in the COSINE routine, we might find constructions 

CJU4,2,C0S+7 

to jump to the (4x7+1 ) = 29th quarter word after the start of the sub- 
routine COS. In fact this will work even if the subroutine were not to 
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start on a word boundary since the following rule is obeyed for this order 
type and for types 7A and 8: 

If the first element in the N field expression is a label, the 
quarter-word part of it (two bits) is added to the C field. The bottom 
two bits of the answer are retained in the C field, and the carry is 
added to the word address equivalent of the label, which is then truncated 
to a symbol for use in evaluating the expression, e.g., if COS is location 
100, quarter word 3, 

CJU^,2,C0S+7 



is equivalent to 



CJU4, l, 108 



However, beware: 



CJUU,2,7+CO'S 



is equivalent to 



CJUU,2,107 



If the latter of these constructions is used, a possible error 
pointer will be given in the output listing. 

If the C required is zero, the field and one of the commas may 
be omitted. Thus: 

JSB3, COS 



will jump to the quarter-word in which the COS subroutine starts. 

NOTE: For library programs which always return to the left-hand side 

of a word, it is better to use the pseudo-operation CALL instead 
of JSB3, (see below). 
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Type 7A Order 

CAT Count and Jump if Nonzero 

This order has the same address construction as type 7 orders; 
it will assemble/ as either CJU, CJF or CJS according to the range and 
position of the jump. However, it will not necessarily make the most 
efficient decision, so, in important, frequently-used short loops, it 
is wiser to hand tailor it with CJF or CJS. 
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k,k.S> Type 8 Orders 



TEI Transfer and Enable Interrupt 

TLN Transfer if Logical Negative 

TLP Transfer if Logical Positive 

TN Transfer if Negative but Not Zero 

TNO Transfer if No Overflow 

TNOR Transfer if No Overflow and Reset Overflow 

TO Transfer if Overflow 

TOR Transfer if Overflow and Reset Overflow 

TP Transfer if Positive but Not Zero 

TRA Transfer 

TU Transfer if Unzero 

TZ Transfer if Zero 

TZN Transfer if Zero or Negative 

TZP Transfer if Zero or Positive 

These are similar to type 7 orders except that they do not 
require a B field and therefore cannot use the normal address form. The 
address constructions are those of type 7 orders with the B field and 
first comma omitted, e.g., 



TRA START to transfer unconditionally to the order 
labelled START 



and 



TZ 2,C0Sl+7 to transfer to the 30th quarter word after 
the start of the COSINE subroutine if the 
accumulator is zero 
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h.k.y Type 9 Orders 

LFR 
SFR 



Load Fast Register 
Store Fast Register 



With normal address construction the B field must be either 
numeric between 2 and 7 or a register name excluding FO. 

The order is long if C = 2 or 3 and short otherwise. The C 
field and the following comma may be omitted, in which case the order is 
made long if the N field contains a numerical quantity, e.g., 

LFR5,M9+7 



assembles as 



whereas 



assembles as 



NOTE: SFR may not use Fl. 



ATN9, 0, 
LFR5,2,7 



LFR5,M13 



ATN13, 0, 
LFR5,0, 
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^.l+.10 Type 10 Orders 

LDM Load Modifier 

This order is always long so the C digits have no meaning in 
normal address construction. Therefore the C field and the preceding 
comma may be omitted. If the N address field is zero, it and the 
preceding comma may be omitted. 

The B address field must not be a register. 
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4. it-, 11 Type 11 Orders 



SIA 
SEX 



Store Integer in Address 
Store Exponent 



These orders are short always and C has no meaning. B must 
not he a register. If the normal address format is used, the N field 
should be blank. Everything except for the B field may be omitted. 
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k . k . 12 Type 12 Orders 

ELS Binary Left Shift 
or LF1 Load Fast Register 1 

In all cases this instruction loads Fl with an operand. In 
addition it performs a logical single binary left shift unless C = 3 and 
B < 8 and B ^ 1. If no address is used in BLS, it assembles as BLS 1, 3> • 
Otherwise it has the construction of type 3 orders, LF1 may only use a 
number 0, and 2-7 or a fast register name as an address. It always 
assembles with an N, 3> case. 
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if ,i4-.13 Type 13 Orders 

*ASN 
*SSN 
*SSR 
*HLT 



Add Special Register to Next 
Subtract Special Register from Next 
Store in Special Register 
Halt 



These orders cause an interrupt, so should not he used when 
using the system. 

Normall address construction can he used, but B and C must be 
numeric and the N field must be blank. Alternatively, one expression 
field only can be used. It must include no tags or fast registers. The 
numerical value is used modulo 64 in the B and C bit positions. 
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k . k . Ik Illegal Orders 



Mnemonics which cannot be understood, or those with addressing 
sufficiently garbled are assembled as the quarter word I77OO which is an 
illegal order. 
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k.5 Pseudo Orders 

Pseudo orders fall into two categories : 

a) Directivesto the assembler which, cause no words to 
be assembled in the object program, but usually 
either determine the memory location of subsequent 
orders, make an entry in the name table, or do both. 

b) Indications to the assembler that what follows is to 
be used as data. 

The address field of either group must be computable at assembly 
time, that is, they may not contain modifiers . 
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k.J.l Directives 



During the assembly phase, the assembler reads the cards, one 
by one, assembles each card into one or more 13-bit groups, and assigns 
them to consecutive control groups or 13-bit locations. To do this, the 
assembly has a "location counter" which consists of a 13-bit word counter 
W, and a 2-bit quarter-word counter Q, It is incremented by one quarter 
for each control group assembled. This can be modified by the following 
groups of directives. It is initially set to the number of transfer vectors 
to be generated by the program. 

ORG (Origin) The address field of this pseudo order is put in the word 
counter W and the quarter word counter Q is cleared to zero. Consequently 
the next order assembled goes into the start of location W. Generally, 
there is no need to use an ORG card; the program will automatically be 
placed at the beginning of the available memory. 



FIL (Fill) This may have a numeric address between and 3» The zero 
may be omitted. Its action is to assemble the order CAM 0,1 as many times 
as necessary to make Q equal to the address in the FIL. CAM 0,1 acts as a 
no operation except after an ORB instruction. The effect of FIL for 
example, is to advance the instruction counter to the next word boundary 
unless it was already on a word boundary. 

FLD (Fill Double) This may have a numeric address between and 7. It is 
similar to FIL except that it takes note of the oddness or evenness of the 
word counter W. It assembles CAM 0,1 instructions until k times (the bottom 
bit of W) + Q is equal to the address in the FLD. Thus 

FLD 14- 

advances the instruction counter to the next odd word boundary, while 



FLD 



advances it to the next even word boundary. 
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If any of the above pseudo orders have a name in the location field, it 
is set as a symbol having the new value of the word counter W. 

BSS (Block Started "by Symbol) First an FIL is performed, and then 
the block of locations whose length is specified by the address field is 
reserved, that is, the word counter W is increased by that number. The 
name in the location field is made a symbol equal to the first location 
of the block reserved. 



BES (Block Ended by Symbol) Similar to BSS, except that the symbol 
defined in the location field is equated to the word address immediately 
following the last word reserved. 

ASSIGN This performs a FIL. It would normally have nothing 

in the location field, but if it did, the name would be made a symbol 
equal to the current word address after the FIL. The address field of 
the ASSIGN can only contain a sequence of names not defined elsewhere, 
each followed by a comma, except for the last. They are entered in the 
name table as symbols, each assigned a value of a consecutive word 
location. The locations are reserved, that is, the word counter W is 
incremented by a number equal to the number of symbols defined, e.g., 

ASSIGN X,A1,23K 

defines three new symbols X, Al, and 23K and reserved one word for each. 



GO This pseudo order signals the end of the program. The 

address field may only contain a label which will be the address of the 
first order to be obeyed. If no ORG was used, and the only pseudo orders 
preceding the first order to be obeyed are EQU's, then this can have a 
blank address field. 
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The following six pseudo orders do not affect the instruction 
counter . 



EQUS (Equate to Symbol) The name in the location field is defined as 
a symbol with the value given in the address field, e.g., 

AB EQU A+B : 

defines the symbol AB as having a value equal to the sum of the values of 
the two symbols A and B. 

EQUL (Equate to Label) This defines the location field name as a 
label. The address of the pseudo order must be numeric or another label. 

EQUM (Equate to Modifier) The location field name is set as a tag with 
the value given in the address field which must be numeric or another tag. 

EQUF (Equate to Fast Register) The location field name is set as a 
register with the value given in the address field which must be numeric 
or another register. 

MACRO is followed by a string of dummy names (for example MACRO X, Y>Z) 
each followed by a comma except for the last. The contents of the location 
field of this pseudo order do not define a name; they define a macro 
operation. 

This pseudo operation is followed by a string of machine operations 
terminated by the pseudo operation END. Each time the macro name defined 
by this MACRO appears, this string of instructions is copied in. The dummy 
symbols, labels, tags or registers X, Y, Z, . ,., W are used in the 
addresses of the instructions defining a macro. When the macro is used, 
these addresses must be defined in an identical format. 
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Example : 










CRASH 


MACRO 


A, B, C 






CAD 


A 






MPY 


B 






STR 


C 






END 





would not define symbols A, B and C, that is, they would not be entered in 
the name table. When the macro instruction CRASH 10, ALPHA, 11 is used, 
the machine instructions 



CAD 


10 


MPY 


ALPHA 


STR 


11 



are assembled, 



Macro definitions may use pseudo orders except for the EQU and 



ORG types. 



END This pseudo order terminates a macro definition as described above. 



COMMON This must have a numeric address N. It causes the next N words 
of the COMMON area to be set aside for the symbol in the location field. 
It is thus similar to the BSS instruction in the common area. 

Example : 

A COMMON 10 
B COMMON 13 
C COMMON 21 



would allocate kk words of COMMON, 
to this area. 



A would be 0, B 10 and C 23 relative 
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ERASE This controls the erasable area exactly as COMMON controls the 
common area. 

ENTRY This must "be followed by one or more defined names, separated by 
commas. These are the names by which the program segment being assembled 
may be CALLed by other programs. 




k.5.2 Data-Loading Pseudo Orders 
DECQ 



can "be followed by a sequence of addresses separated by 
commas. Each, assembles into one control group, e.g., 



DECQ 1, A+19,3 

forms the three quarter words 

7, A+19 and 3. 

The addresses can be any expressions involving numbers 
and symbols. 



OCTQ 



is identical to DECQ except that numbers are converted 
base 8, e.g., 



OCTQ 15071, 32 



assembles the two quarter words 



1 101 000 111 001 



000 000 Oil 010 



15 7 1 



3 2 



OCTQ and DECQ cause outside names to be defined as labels. 



CHR (Character) This pseudo order is followed by one decimally represented 
address N followed by a comma, then the following N 
characters are packed, eight per word, into the next N/8 
words. The last word is filled up with blank characters 
once it is started. This is the only card for which the 
address field does not terminate at the first blank after 
column 15. 

Before the words are assembled, a FIL is performed, and 
then any name in the location field is equated to a symbol 
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with the value of the current word counter. The character 
code used is the standard IBM BCD tape code given in 
Table 3 at the end of this chapter. Two six-hit characters 
are packed in adjacent six-bit groups in the least signifi- 
cant 12 bits of each control group. Thus one word has 
the following format : 






cl 


c2 





c3 


ck 





c5 


c6 





c7 


c8 



DEC 



first performs a FIL, then equates the name as a symbol 
equal to the current word counter. Decimal numbers may 
appear in the address field separated from one another 
by commas. Each is converted into a full word floating- 
point number. The number may be punched with or without 
a decimal point (no point is identical to putting the 
point last) and with or without a decimal exponent. An 
exponent must be preceded either by E, a sign, or E and a 
sign. The number should lie between 10— } but can con- 
tain an arbitrary number of digits, although only 13 digits 
(approximately) are retained. 

Example of numbers : 



Punched as 


Value 


72 


+.7^ x 10 ; 


- 27-1 


-.271 x io ; 


+30.E-02 


+.301 X 10" 


7.5E06 


+.75 x 10 


- 3.32-05 


-.332 X 10 


-3.32E-5 


-.332 x 10 






The above pseudo orders should not cause more than seven 
full words or 31 quarter words to be assembled. 
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CALL 



is identical to writing 



JSB 3, 

FIL 

where the address field of the CALL follows the comma 
in the JSB instruction. It may only contain a name. 
If this name is not defined in the program, a transfer 
vector TRA NAME will be assembled at the front of the 
program. 
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k,6 Input/Output Pseudo Instructions 

These are a means of writing subroutine control words, usually 
for Input/ Output subroutines. Each, mnemonic first performs a FIL, then 
equates the location field name to the current word counter as a symbol. 
Address fields are assembled into the appropriate control groups of one 
full word and any necessary control bits are set in that word. The 
instructions allowed are described in Chapter 5. Note that the address 
fields must be computable at assembly time. 
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k.f Macro Orders 

« i 'p p 'i n m i ■ i . 

The address field of a macro order may contain a series of 
expressions or register names, separated by commas. These are assigned 
to the dummy symbols in the macro definition as shown in the example in 
section 4,5.1, 

Restrictions on the address fields of macro orders are precisely 
those due to their use within the macro definition * 
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lj.,8 Motes on Simple Programming In Assembler Language 

To write simple programs, it is not necessary to make use of 
many of the different address formats allowed, or to learn many rules. 

With arithmetic orders, the address need only be either a fast 
register, e.g., 

ADD F3 

or a memory location defined by an expression, e.g., 

CAD 9+M5. 

Names used in these address fields are usually symbols defined in BSS, BES 
or ASSIGN pseudo operations. 

Modifier register orders naturally require an indication of the 
modifier also, so this comes first followed by a comma, e.g., 

ADM 5,3+M7 

"add to modifier 5, three plus modifier 7." 

Jump or transfer orders must give the address of another order. 
This address is usually a label, e.g., 

CJU M5,AA 

"Count and jump if unzero modifier 5 to the order labeled AA." 

•It is necessary to go to other formats only to gain speed in 
important places. 

Example 1. Polynomial Evaluation. 

Suppose we wish to evaluate a polynomial p(x) = A^ + Aj^x + 
... + A x N where the coefficients A Q , A^ ..., A^ are in locations A, A+l, 
up to A + N - 1 and x is in location X. 
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The program: 

CSM 4,N 
CAD A 
LI MPY X 

ADD A+N+l+M^ 
CAJ k 3 LI 

will do it. However, this will only be assembled as a short loop if LI 
falls in the right place. This can be avoided by making sure that it does 
fall in the right place with a FIL. 

Secondly, X is fetched from the memory on each pass. This can 
be avoided by putting it in a fast register. 

Thirdly, the ADD instruction is long; it can be made short by 
using the C = 1 option. (in this case it makes no difference because the 
loop is already less than eight quarter words . ) 

After rewriting, the program is: 

CSM 4,N 
CAM 5,A+1 
LFR 2,X 
CAD A 
FLD 
LI MPY F2 

ADD 5,1, 
CJF k 

If the FLD causes no CAM 0,1 instructions to be assembled, the 
program is, of course, that much faster. 
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Example 2. 

To save time setting several modifiers, it is better to use 
LFR instructions. 

Add the three N vectors A, B and C, each stored in consecutive 
locations in memory. Store the result starting at location D. 



LFR 5, SI Load four modifiers 

CSM 8,N 



FIL 

LI CAD 4,1, 

ADD 5,1, 

ADD 6,1, 

STR 7,1, 

CAJ 8, LI 



FIL 
SI DECQ A,B, C,D Constants for loop 

Execution of a program should be terminated by a CALL SYSTEM or a 
CALL SYSERR in order not to obtain or to obtain a dump respectively. 
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k»9 Program Listing 

After the assembly has been performed, a listing will be prepared 
giving the original program and its binary form side by side. The format, 
across a line is : 

Card Number in Decimal 

Location in Decimal 

Location in Octal 

Octal Code first quarter word 

second quarter word 
third quarter word 
fourth quarter word 

Source Language 

If any errors or suspected errors are found, an * is printed 
after the card number. 

Following the program is a list of all errors referenced to the 
card number on which they occurred, and a name table list. 
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4.10 


Tables 




















4.10.1 Table 


1. Order Code Index 












Order 


Type 


Section No. 


Page No. 


Order 


Type 


Section Nc 


), Page No, 




ADD 


1 


4.4.1 


1 


CST 


1 


4.4.1 


1 




ADE 


3 


4.4.3 


1 


DAV 


1 


4.4.1 


1 




ADM 


4 


4.4.4 


1 


DIV 


1 


4.4.1 


1 




ADN 


5 


4.4.5 


1 


EOM 


4 


4.4.4 


1 




AND 


1 


4.4.1 


1 


EON 


5 


4.4.5 


1 




ANM 


4 


4.4.4 


1 


EQM 


4 


4.4.4 


1 




AM 


5 


4.4.5 


1 


EQN 


5 


4.4.5 


1 




ASC 


2 


4.4.2 


1 


*FEF 


3 


4.4.3 


1 




*ASN 


13 


4.4.13 


1 


*IBT 


3 


4.4.3 


1 




ATN 


3 


4.4.3 


1 


JDC 


7 


4.4.7 


. 1 




*BBF 


3 


4,4.3 


1 


JLH 


3 


4.4.3 


1 




BLS 


12 


4.4.12 


1 


JNM 


7 


4.4.7 


1 




CAD 


l 


4.4.1 


1 


JPM 


7 


4.4.7 


1 




CAE 


3 


4.4.3 




JSB 


7 


4.4.7 


1 




CAJ 


7A 


4.4.7 


3 


JUM 


7 


4.4.7 


1 




CAM 


4 


4.4.4 


1 


JZM 


7 


4.4,7 


1 




CAW 


5 


4.4.5 


l 


LAL 


l 


4.4.1 


1 




CAT 


l 


4.4.1 


l 


LDM 


10 


4.4.10 


1 




CJF 


6 


4.4.6 


l 


LFI 


12 


4.4.12 


1 




CJS 


6 


4.4.6 


l 


LFR 


9 


4.4,9 


1 




CJU 


7 


4.4.7 


l 


LIN 


3 


4.4.3 


1 




CJZ 


7 


4.4.7 


l 


LOR 


1 


4.4.1 


1 




CNM 


4 


4.4.4 


1 


LRS 


3 


4.4,3 


1 




CNN 


5 


4.4.5 


1 


MPY 


1 


4.4,1 


1 




CRM 


4,. ; " 


4.4.4 


l 


NAM 


4 


4.4.4 


1 




CRN 


5 


4.4.5 


1 


NAN 


5 


4,4.5 


1 




CSB 


1 


4.4.1 


1 


NDV 


1 


4.4.1 


1 




CSE 


3 


4.4.3 


l 


NOM 


4 


4,4.4 


1 




CSM 


4 


4.4.4 


1 


NON 


5 


4.4.5 


1 




CSN 


5 


4,4.5 


l 


NOT 


l 


4.4.1 


1 
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4.10.1 Table 1. Order Code Index (Continued) 



Order 


Type 


Section No. 


Page No. 


Order 


Type 


Section No. 


Page No. 


ORB 


3 


4.4.3 


1 


STF. 


2 


4,4.2 


1 


ORM 


4 


4.4,4 


1 


STN 


2 


4.4.2 


1 


QRN 


5 


4.4.5 


1 


STR 


2 


4.4.2 


1 


*PID 


3 


4.4.3 


1 


STU 


2 


4.4.2 


1 


*POD 


3 


4.4,3 


1 


SUB 


2 


4.4.1 


1 


SAL 


2 


4.4.2 


1 


TEI 


8 


4,4,8 


1 


SAM 


2 


4.4.2 


1 


TLN 


8 


4.4.8 


1 


SBE 


3 


4.4.3 


1 


TLP 


8 


4.4.8 


1 


SBM 


4 


4.4.4 


1 


TN 


8 


4.4.8 


1 


SBN 


5 


4.4.5 


1 


TNO 


8 


4.4.8 


1 


SEQ 


2 


4.4.2 


1 


TNOR 


8 


4.4.8 


1 


SEX 


■ 11 


4.4.11 


1 


TO 


8 


4.4.8 


1 


SFN 


3 


4.4.3 


1 


TOR 


8 


4.4.8 


1 


SFR 


9 


4.4.9 


1 


TP 


8 


4.4.8 


1 


SIA 


11 


4.4.11 


1 


TRA 


8 


4.4.8 


1 


SIT 


2 


4.4.2 


1 


TU 


8 


4,4.8 


1 


SRM 


2 


4.4.2 


1 


TZ 


8 


4.4.8 


1 


SRS 


3 


4.4.3 


1 


TZN 


8 


4.4.8 


1 


SSC 


2 


4.4.2 


1 


TZP 


8 


4.4,8 


1 


*SSN 


13 


4.4.13 


1 


VID 


1 


4.4,1 


1 


*SSR 


13 


4.4.13 


1 


XCH 


2 


4.4,2 


1 


STC 


2 


4.4.2 


1 
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4.10.2 Taole 2. Pseudo Orders 



Pseudo Order 


Section No. 


Page No. 


ASSIGN 


4.5.1 


2 


EES 


4.5.1 


2 


BSS 


4.5.1 


2 


CALL 


4.5.2 


3 


CHR 


4.5.2 


1 


COMMON 


4.5.1 


4 


DEC 


4.5.2 


2 


DECQ 


4.5.2 


1 


END 


4.5.1 


4 


ENTRY 


4.5.1 


5 


EQUF 


4.5.1 


3 


EQUL 


4.5,1 


3 


EQUM 


4.5.1 


3 


EQUS 


4.5.1 


3 


ERASE 


4.5.1 


5 


STL 


4.5.1 


l 


FLD 


4.5.1 


1 


GO 


4.5.1 


2 


MACRO 


4.5.1 


3 


OCTQ 


4.5.2 


1 


ORG 


4.5.1 


1 
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k . 10 . 3 Table 3. BCD Tape and Card Code 



TABLE OF PERMISSIBLE 


CHARACTERS 












<D 






(U 


i 




<U 


! 




<d 


oj 




d 


0) 




<tf 


<L> 1 




O 


Ph 







A 







ft ! 




O 


E-i 







E" 1 




u 


cs ; 




TS 




1 d 






d 






*-! 


fl 


Sh 


d 




u 


2 




J 8 


O 


a 







<$ 





u 


O 






*H 







<D 




0) 


<u 


4> 


<u 




<u 


•P 


tl 


n3 -— » 


-p 1 <n 


d *~* 1 


p 


ts 


-0-^ 


O 


a> 


U "3 


O 1 0) 


O H < 





(D 


O H 


0} 


,a 


cS 43 


a 


A 


cd 


U 





_ -P 


h O 


„ -I- 5 





-p 


cd 


a 


P O 


<S ! a 


81! 


cd 


ti 




6 £ 


O O 





s 


1 


a 


blank 


blank 


00 


G 


12 


67 1 


w 




6 


26 1 








12 


H 


12 
8 


70 j 

* 


X 



7 


27 






: 12 











1 


1 


01 


I ' 

i 9 


71 j 


Y 


8 


30 j 

4 


2 


2 


02 


J 1 


>i j 


Z 



9 


1 
31 ! 


3 


3 


03 


K 


11 
2 


k2 


= 


3-8 


13 


k 


k 


Ok 


L 


11 
3 


kl 


( 




4-8 


3k 


5 


5 


05 


M 


11 

k 


kk 


) 

i 
1 


12 

k-a 


Ik 


6 


6 


06 


N 


11 
5 


* 


I 


12 



72 


7 


7 


07 





11 
6 


k6 


- 


11 



52 


8 


8 


10 


P 


11 
7 


kl 


j 


4-8 


Ik 


9 


9 


11 


Q 


11 
8 


50 


+ 


12 


60 


A 


12 

1 


61 


R 


11 
9 


51 


- 


11 


to 


B 


12 
2 


62 


S 



2 


22 


* 


11 
4-8 


54 


C 


12 
3 


63 ! 


T 




3 


23 


/ 




1 


21 


D 


12 

k 


6k I 


U 



k 


2k 


$ 


11 

3-8 


53 


E 


12 
5 


65 , 
I 


V 



5 


25 


! 

> 



3-8 


33 


F 


12 
6 


66 | 








• 


12 
3-8 


73 



Character is not normally used. When it is used it will not be 
considered a sign. 
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5.2 Direct Communication with Back-Up Storage and i/o Tapes 

Programs in the monitor area are available for direct 
communication without any form of conversion. The auxiliary storage units 
are addressed logically by the user program; the monitor program does a 
table look-up to get absolute addresses. 

Sections 5.21 and 5.2.2 describe programs that are part of the 
permanent monitor. Special uses that are not adapted to these programs 
may require additional optional moniior programs to be incorporated for 
that use only. 

Programs in the monitor area will run with user interrupt 
enabled or disabled. If it is enabled, a CALL on the programs is sequenced 
via interrupt since it is in protected memory; otherwise the transfer is 
direct. 
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5.2.1 SYSI0 

SYSI0 is a program for direct communication with the input/ output 
tapes. It includes an input and output "buffer so that when control has 
been returned to the programmer the transfer has been completed as far as 
he is concerned. The sequence of operations is: 

Input: Wait until the input buffer is loaded, then 

copy information to programmer's area of core. 
Start a refill of the input buffer and return 
to the user. 

Output: Wait until the output buffer is empty, then 

copy user's data to buffer. Begin transfer of 
buffer to output tape and return control to 
user. 



This simple picture is complicated by the fact that records are "blocked, " 
but this does not affect the user. 



Use of SYSIj^ 

The call sequence is 

CALL SYSI0 

DECQ fiS, A, EjZ$F, W 

$¥ determines the operation. Codes are 

Read a binary card (20 words) 

1 Read a BCD card (10 words) 

2 Read a BCD card with a $ in column 1 

3 Read a BCD card without a $ in column 1 

(The last two options are intended for the system programs!) 
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512 Punch a binary card, (20 words) 

513 Punch a BCD card (10 words) 
51^ Print a line (17 words) 

The data input or output starts at location A, On input, sign bits of the 
quarter words are cleared. On output they are ignored. In the case of 
print, the first 3/8 of the first word is ignored, the next l/8 is the 
carriage control. Thus the format of these 17 words for output is: 



first word 

x I X || x | "c 



: 



2 -17th words 



: 



ignored 



k characters 
-carriage control 



During read operations an end of file may occur. This will cause a branch 
to the EjuF address, if it is nonzero. If the wrong card type is read (e.g., 
Binary is requested and it is a BCD card, etc.) then a branch to location W 
occurs if it is nonzero. No read takes place in either of these cases. If 
the branch address is zero, execution is terminated. Also, SYSIjtf will not 
go beyond an Ej#F mark on the input tape . 



Format of Input and Output Tapes 

The input and output tapes are written in binary with odd parity 
throughout. Each record is 488 characters or 6l ILLIAC words, (it can be 
168 or 328 if desired. ) Each record can, but need not, contain three card 
or line images in the format. 



1 Record 



Control Word 



20 words 
1st image 



20 words 
2nd image 



20 words 
3rd image 



Date: 


7/IO/6I+ 


Section: 


5.2,1 


Page: 


2 of 3 


Change: 





The control word consists of the eight characters 

blank, number of images on this record, blank, Tl, blank, T2, blank, T3 
where Tl, T2 and T3 are the types of the three images 

blank = BCD card 

1 = line for printer 

2 = Binary card 

Images are left-justified in the 20 word areas, that is a BCD card occupies 
the first ten words, the next ten are not used. A line image occupies 
the first 17 words. 
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5.2.2 SYSAUX 

The system auxiliary storage program SYSAUX enables one block 
to be transferred to a tape, the drum or the disk. The call sequence is 

CALL SYSAUX 

DECQ JSS, A, Ej#F, U 

where $£ is the operation type 

A is the starting core address 

Ej#F is the E0F branch address 

and U is the logical unit. 

Currently assigned units are : 

0-N refer to the drum sectors 0-N. The monitor 

may relocate this upwards to avoid locked-out 
areas, so N should not be too large. 

102^-1033 Tapes 0-9 . 

Tapes 0-5 are system tapes and are not normally available 
directly. Logical units 6-9 should be used 
where possible. 

Unlike SYSI0, there is no buffering in SYSAUX. This has two consequences. 

1. On the drum, all transfers are of 256 words. The bottom 8 bits of the 
address A are therefore ignored and a complete block starting from a 
multiple of 256 is transferred. On tapes, transfer terminates either 
at an end-of -record gap (reading only) or at the end of the core 
block of 256 words being used. Therefore care must be exercised in 
allocating buffer areas for auxiliary transfers. 

2. The transfer is overlapped, so that when control is returned to the 
user, all previous transfers on that unit have been completed success- 
fully without errors, end of files or end of tape signals, and the 
present transfer has been initiated, but not necessarily completed. 

If it is necessary to use the information or core area before another 
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transfer is made from or to the same unit, the control operation WAIT 
described below should be used. (Efficient programs will avoid the 
use of this operation! ) 

If an end of file (not possible on the drum) is encountered, 
the new transfer is not initiated; instead, a transfer is made to the E0F 
address if it is nonzero; otherwise execution is terminated. Errors are 
checked for and the transfer is repeated a number of times until 
successful or execution is terminated. 

Operations for all units 

Read a block 
512 Write a block 
256 WAIT until the last block has been transferred 



Operations with meaning for tape units 

1064 Backspace Record (returns to beginning of last record) 

1072 Backspace File (returns to beginning of this file). 

1088 Check Record (moves tape to next record) 

IO96 Check File (moves tape to beginning of next file) 

IO56 Rewind 

1104 Write E0F Mark 
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5-3 Input Output with Conversion 

Input data, normally from cards, and output data, destined 
for the printer or punch are normally in the. IBM 6-bit BCD code shown 
on page ^.10.3- In order to convert to or from a string of such 
characters, from or to a suitable internal form in memory, two., types 
of information must be provided: 

a) Where the information comes from or goes to in the core 
memory (the "input-output list"). 

b) A description of the format of the string of characters to 
be input or output. 

The programming language being used will determine how the 
input-output list is specified. The format description is essentially 
independent of the language, as it consists of a string of characters 
describing the basic fields of the input or output information. This 
format string is present in the memory at execution time. (It is put 
there by the appropriate statement in the language used, for example, 
FQBMAT (...) in Fortran and CHR N, . . .* in NICAP. ) It consists of a 
sequence of field descriptions which must be paired with consecutive 
items in the I/O list. The I/O list is a list of addresses of data 
given in the program. The way in which the I/O list is programmed 
depends on the user language, and is therefore described, in the 
appropriate section. Section 5-3-1 will describe how the format 
string is made up. 
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5> 3*1 Format Control 

Input and output is by means of 80 column cards or a 132 
column printer. The user determines how many of these columns are 
to he used for the first variable to be input or output, how many 
for the second variable, and so on, always starting at the left 
end. The size of these groups of columns, called fields, is 
determined by a decimal integer in the format string. For example, 

A17,I19,S5 
describes an A field of 17 columns followed by an I field of 19 
columns followed by an S field of 5 columns. The meaning of the 
field is determined by the field description letter appearing 
before the number. The allowable letters are described in the 
following sections. 



¥ 



In the case of output to the printer, the printer removes the 
first (left most) character transmitted to it and uses it for 
carriage control. Hence a maximum of 133 characters may be 
transmitted to the printer per line. 
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5.3=1-1 Field Descriptions 

In the descriptions below, w and n are unsigned decimal 
integers, and d is an unsigned decimal digit. Inputs are described 
in terms of reading cards, but also apply to reading card images on 
magnetic tape. Outputs are described in terms of printing, but also 
apply to punching cards or writing magnetic tape. 

Fw.d or Iw.d The I or F fields, which are identical, transmit a 
decimal number with the decimal point shown, for example 
15, 101.66, -.0034, and 31+352. The number is transmitted 
to or from a full word location, hence the corresponding 
entry in the Input-Output List must refer to a full word. 
The w indicates the total width of the field in columns. 
The d indicates the number of places to the right of the 
decimal point. 

On input, d is ignored if there is a decimal point 
in the number, blanks are ignored, and an absent sign is 
assumed to be plus. A decimal point may be omitted, in 
which case it is assumed to be d places from the right 
end of the number. If w is larger than needed, the number 
may be punched anywhere in the field. 

On output, the number is printed with d places after 
the decimal point, right justified in the w column field. 
Leading zeros are suppressed up to the last digit before 
the decimal point. Plus signs are suppressed and minus 
signs are printed. (To print plus signs also, write 
F+w.d. ) If the number to be printed is floating zero, 
then with the appropriate decimal point and trailing 
. -^ 



Floating zero is represented in the core memory as 
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zeros will be printed. If the output number overflows 
the field on the left end, then the number will be printed 
in E form (even though F was specified) with the least 
significant digits of the fraction part truncated if 
necessary to fit into the required number of columns. 

Fw or Iw This indicates that a decimal integer is to be input 
or output. The w indicates the total width of the field 
in columns. On input, blanks are ignored. On output, the 
number is printed right justified in the w column field 
with leading zeros suppressed and with plus signs sup- 
pressed, and without a decimal point. (To print the plus 
signs, write F+w or I+w. ) If the integer to be printed 
is too large, it is printed in E form as described below. 

Ew.d The Ew.d field describes a number which resembles the 

form known as "scientific notation," for example, 

2 
.23^+3 x 10 . Since card readers and printers do not 

handle superscripts, the exponent is indicated by pre- 
ceding it with an E. The general form of a number in an 
E field is 

±.xxx. • .xE±ee 
where the x's represent decimal digits, the E implies 
"exponent follows," and the ee represents a two digit 
exponent of 10. The w indicates the total width of the 
field in columns. The d indicates the number of places 
after the decimal point. (There are none before the point 
unless the field description is modified by a P control 
character, described below. ) Note that up to six columns 
of an E field are used for the characters 

± • E+ee 
so that w must be greater than d by 6 or more. The number 
in an E field is transmitted to or from a full-word loca- 
tion, so the corresponding entry in the I/O list must refer 
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to a full word. The range of exponents is -38 to +38 unless 
modified by the P control character (see below). 

On input, the number may* have the general form indicated 
above, or an abbreviated form as indicated in the following 
section. On input, d is ignored. 

On output, the number will have the general form shown 
above, except that the sign of the number is printed only if 
minus. (To print plus signs also, write E+w.d. ) The sign 
of the exponent is always printed and the exponent is always 
printed, even if zero. If the field size, w, is larger than 
required for the information, the number will be printed right 
justified in the field, with blanks supplied on the left. 
Floating zero will be printed as 

.0— -OE-99 
For example, using the field description E10.i|, the decimal 
^number +10.39 would be printed as 

b.l039E+02 
where b stands for blank. Using E9»3> the same number would 
be printed as 

b . lO^E+02 
Using E9-3> the number -10.39 would be printed as 

-.10^E+02 

Variations allowed on input 

On-input, E, F, and I fields will accept any of the 
following forms 

109 unsigned integer 

+11 signed integer 

7-1 unsigned number with decimal point 

-8.132 signed number with decimal point 
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Sw 

X 

An or Cn 



or any of the above followed by one of the following forms, 
which indicate the decimal exponent: 

E-07 general form 

E12 plus sign absent 

E+3 leading zero in exponent absent 

+3 E and leading zero absent 

-21 E absent 

Note that E is necessary only if the sign of the exponent 
is not punched. Unless modified by the P control character 
(see below), E, F, and I fields are identical for input. 
On input, blanks are ignored in the field. If the entire 
field is blank, the value will be set equal to floating 
point zero. Any number of digits may be used in the field, 
but only 13 decimal digits of accuracy are retained* 

Space. On output, Sw causes w spaces to be printed. 
On input, Sw causes w columns to be ignored. 

is identical to SI. 

These field descriptions are used to transmit Hollerith 
characters in the 6-bit BCD code given on page If. 10. 3- The 
field description An or On causes n Hollerith characters, 
packed 8 per word in the least significant 12 bits of each 
quarter word, to be input or output. For example, if the 
field description A10 were used to read a card punched with 

ABCDEFGHIJ 
then the two computer words involved would contain 
I66l66l66l66 
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The first bit of each quarter word is unchanged. If n is 



¥ 



Before the program was loaded, the memory was cleared to 
zero in every bit position. Unless the program has changed 
it, these bits are still zero, 
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not a multiple of 8, the remaining space in the last word 
is not changed. 

Dn This field description transmits quarter words as 

decimal integers. When a D field is used, the corresponding 
item in the Input-Output List should refer to a quarter word. 

On input, the quarter word specified in the I/O list is 
loaded with the number truncated to an integer modulo 8192. 
Numbers greater than if095 may be thought of either as positive 
or twos complement negative number. Thus 
U097 is -4096+1, U098 is -i+096+2, ... 
8191 is -^096 + 4095 = -1. 

On input, the number may have any of the forms allowed for 
E fields. 

On output, a decimal integer in the range -I+O96 to 
+J+095 is formed, so at least five columns are needed. If 
n is greater than five, blanks are inserted on the left. 

Qn This field description transmits quarter words as 

unsigned octal integers, in the range 00000 to 17777- When 
a Q field is used, the corresponding item in the Input-Output 
List should refer to a quarter word. 

On input, blanks are ignored, other characters are 
assembled as octal, but no check is made that these characters 
are octal digits. 

On output, five octal characters are printed, right 
justified in the n column field. No zero suppression occurs. 
If n is less than five, only the rightmost digits are printed. 
If n is greater than five, blanks are inserted on the left of 
the five octal characters. 

Ln An L field is similar to a D field in that it transmits 

a 13-bit integer as a decimal integer. 
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On output, the address given in the l/o list is printed, 
not the contents of the addressed word. A decimal integer in 
the range -4095 to J+O96 is printed as for the D field so at 
least five columns are needed. 

On input, the number read is copied into the read program 
image of the Input/ Output List. The Programmer's l/o list is 
not changed; but if this address is used for the next item, the 
changed value is used, 

Mn An M field, is the same as an L field, except that the 

13-bit address is input or output as an octal integer in the 
range 00000 to 17777- L and M fields are provided for the 
benefit of dump programs. It is doubtful if they will have much 
value in general programming. 

Double Precision 

Floating-point conversion (E, F and I fields) is performed 
almost correct to double precision (rounding will depend on the 
exponent). Double precision words may be input and output by 
doubling the field description letter. Thus EE30.24 will read 
or print a 24-digit number in a 30-place field. On input, the 
most significant part will go into the cell named in the l/o 
list, the least significant part into the next higher addressed 
cell. It counts as only one item in the list count but increases 
the address by 2. On output, the contents of the two cells are 
added , and then converted double precision. 
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5*3«1'2 Multiple Field Descriptions 

Any field description letter may be preceded by a decimal 
integer which indicates the number of times that field is to be 
repeated. Thus Ul7,9X,3Q,6 indicates four I fields of seven 
columns each, then 9 spaces, then three Q fields of six columns each: 
I I I I blank Q Q 



+ 



7 



+ 



f— H 
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5-3-1-3 Hollerith Fields 



One field description letter must always "be preceded by a 

number, the Hollerith field. The general form of this field description 

is nHx, x x„ . . . x where the x. represent characters. 
1 2 3 n i 

On output the n characters in the format string which immedi- 
ately follow the H are to be printed exactly as shown. Note that in 
this case all the information to be printed comes from the format 
string itself, not partly from the format string and partly from the 
Input-Output List as is the case for other format specifications. 

For example, the format string 10HbAVERAGEb=,F7.1 -: will 
cause the 10 characters, including blanks, following the H to be 
printed, followed by the number corresponding to the F7-1 description 
(as indicated by the I/O list). If that number happens to be +101.3, 
the. printed output will be 

bAVERAGEb=bbl01.3 

On input, n characters are read from the input medium and 
stored (in 6-bit BCD form) as the next n characters in the format 
string itself as it is stored in the, memory. 



Date: 


II/8/63 


Section: 


5- 3-1- 3 


Page: 


1 of 1 


Change : 





5.3«1.^ Control Characters 

Except f or H fields, each field description must be followed 



by one of the characters 



, / ) 



Their meanings are 



, is solely a separator, 

/ means output this line and /go on to the next 
or read next card. 

* means "end of format statement „" It must be 
given explicitly in NICAP. In FORTRAN it is 
supplied automatically o 

Parentheses "(" and ")" can be placed around a valid sequence of field 
descriptions, and a decimal integer can appear immediately before the "(„" 
This means that the descriptions enclosed in the parentheses are to be 
repeated the stated number of times. If no number appears before the 
"(," it is assumed to be 1. Thus 3(F5,2HX=2E15.6/) will print a five- 
digit fixed-point number, X=, and two 15-column floating-point numbers 
followed by a "carriage return" and repeat this three times. 

Parentheses may be nested to a depth of three levels. 

P Power or scale factor. The general form is nP where n is a 
signed or unsigned decimal integer. The integer is a scale 
factor that has the following effect on the next E, I or F 
field.' 

a) E Fields No effect on input. On output, it is the 

number of places before the point. It does 
not affect the size of the number, i.e., the 
exponent printed is adjusted to compensate 
for the shifted decimal point. 

b) I and F Fields It scales the field by 10~ p on input, and 

by 10 P on output. 
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Thus for F and I fields the relation 

External number = Internal number * 10 P 
holds for input and output. 

Example ; 

Using the format -1P,E+13, 7^7.4, ... the internal numbers 10,13 
and 17-25 would print as 

+ . 0101300E+03bl7 . 250 . o . 

If a P is not given, the scale factor is taken as zero. The scale factor 
is cleared to after a single or multiple field description has been 
processed, e.g., 2P, 3E17-5 would scale three fields by 100, 

Indirect Address Character ■ N 

At any point where a decimally represented number may appear in 
a format statement, an N may appear in its place. The control program 
reads the next full word specified by the i/o list from memory, converts 
it to an integer by truncation and uses that number for the format 
control. Thus . „„, HEI5.6, ... will print a number of floating-point 
words specified by a cell named in the i/o list. 

Blank Characters 

Blanks may appear anywhere in the format specification. They 
have no effect. 
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5-3'l'5 Relation of the Format to the I/O List 

The format is scanned first and each time that it requires 
a word location (E, F, I, and A fields ), a quarter word location (D and 
Q, fields), or an address (L and M fields), the I/O list is examined. 
If there are no items left on the list, the input or output is termi- 
nated by a card feed or a line eject. If there is an. item, it is used. 
When the end of the format (*) is reached, a card feed or line eject 
is given and the I/O list is cheeked.. . If it is empty, again the input 
output is terminated. If it is not empty however, the format definition 
is continued by repeating from the last occurring outermost left 
parenthesis, or from the beginning if there are no parentheses. The 
combination of format and I/O list must not cause more than 80 columns 
to be transmitted to or from a card, or more than 133 characters to 
the printer. The printer only has 132 print positions-; the first 
character transmitted is removed during printing for carriage control. 
Assignment of carriage control characters -will- be given in Chapter 2. 
. Standard ones will always be 

blank. — single line feed 

l--page eject before printing. 

The blank can be provided most simply by making sure that the first 
field is sufficiently long to provide a blank. 
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5'3=2 Assembling the I/O List and Format Statement in NICAP 

The format statement can be most easily assembled by use of 
the CHR pseudo operation (see section U-5.2, page l). For example, to 
store a format statement in location G, write 

G CHR 18>UF19.1,3HX1=E21.8* 

This would assemble as three consecutive words in G, G+l, and G+2. 

The I/O list is stored in a set of consecutive memory 
locations. First let us consider full word items. Suppose that the 
data in locations A, A+l, . . .A+N-l, B, B+l, . . . B+M-l; and C, C+l, ...C+P-l 
is to be transmitted. Then the I/O List will consist of three consecu- 
tive words in memory, thus: 

1132 13 25 26 38 39 51 



List 


1 
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G 














List+1 


1 
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M 
















List+2 


00 





C 


p i 



The 1 in bit position of the first two words indicates that another 
control word follows, i.e., this is not the end of the Input-Output 
List. The 00 in bit positions and 1 of the third word indicates 
that this is the last control word. Quarter word 1 (bits 13-25) of 
each control word contains an address. Quarter word 2 contains a 
count of the number of items to be transmitted beginning at the 
address in quarter word 1. This count must be less than ^096. After 
the specified number of items have been transmitted, the input-output 
program examines the next control word to see what item is to be 
transmitted next, terminating at the end of the control word which 
begins with 00. Quarter word 3 of the first control word contains 
the address of the format string (the address of the first word in 
the string if it occupies several words). Quarter word 3 of all the 
other control words is ignored. 
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The PRINT, READ, and PUNCH programs are entered by storing 
the address of the first word of the I/O List in Ml, and then CALLing 
the appropriate program. For example, to print the items indicated 
by the I/O List above, write 

GAM 1, LIST 
CALL PRINT 

The CALL pseudo order will be assembled as JSB3,, PRINT. 

For example, to print A, A+l, A+2, A+3,. and B with the 
format statement used earlier, the program below could be used 

CAM 1,H1 

In Program 
CALL PRINT B 

G CHR l8,10'19.1,3HXl=E21.8* Constants 

HI DECQ 1+096,A,U,G elsewhere 

DECQ 0,B,1,0 in memory 

A little care is needed because DECQ is a quarter word pseudo 
operation, i.e., it does not FIL before loading. Therefore it 
should either be preceded by a full word pseudo operation, as in 
this example, or should be preceded by a FIL. 

When a quarter word address is required, as in D and Q, the 
last two bits, indicating quarter to 3, are stored in the least 
significant two bits of the first quarter of the control word (bits 
11 and 12). Thus to PRINT locations A,3f A+1,0; A+1,1; and B,2; 
B,3; and B+1,0 in octal, the program might be 

CAM 1,C 
CALL PRINT 

FIL 

C DECQ I+O96+3, A, 3, F ' 

DECQ 2,B,3,0 

F CHR 1|-,6Q7* 
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Note that the item count in quarter word 2 is the number of quarter 
words. In general, this number is the number of items printed where 
each E, F, I, A, C, D, L, M, and Q field counts as one item. H, S, and 
X do not . If a full word item is input or output when the current i/o 
list address (i.e., that one to be used next) indicates quarter word 
1, 2, or 3 rather than zero, then the quarter-word address is reset to 
and the full word address is incremented by 1 before the input or output. 
Thus 



CAM 


1,D 


CALL 


READ 


FIL 




DECQ 


kQ96+2,k,k,T± 


DECQ 


1,B,1,0 


CHR 


11,3Q6,2E20.0* 



Fl 



will read three octal numbers into A,2j A, 3; and A+l, 0, and two full- 
word floating-point numbers into A+2 and B+l. 

If the bits and 1 of the last control word are the 01 combina- 
tion, then this indicates a "partial CALL." The next CALL either of the 
READ, PRINT or PUNCH program will be interpreted as a continuation of 
the previous CALL. That is, the same program will be used as was used 
on the previous occasion (it does not matter whether PRINT, READ or 
PUNCH is called), and the old format will be continued from the point 
it has previosly reached. In other words, it is equivalent to placing 
the new i/o list on the end of the last one. 

Example ; 

To print the first 976 integers, ten per line, the following 
program could be used: 
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CAD 
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STR 
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CSM 


k,9lG 


CAM 


1, PR+1 


CALL 


PRINT 


CAD 


1. 


ASC 


A 


CJU 


k,B 


CAM 


1, PR+2 


CALL 


PRINT 


— — — _ 





PR CHR 8, 10F10* 

DECQ 20lt-8,A,l,PR 
DECQ 0,0,0,0 
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7 • COMPILERS 

7-1 FORTRAN II, Version I 

Version I of the FORTRAN II compiler for ILLIAC II (hereinafter called 
FORTRAN) is designed to be fast at compiling at some expense in object code 
efficiency. Generally speaking, the code generated is the best which can be 
generated in one pass, making no special tests for restricted cases. Thus index 
registers are not used in D0 loops because at least 15 bits are generally needed, 
and multiplication for array indexing is not moved outside of D0 loops. However, 
if subscripts are specified as numbers, the computation is done at compile time. 
A detailed description of the compiler forms Section 3-5 of the ILLIAC II Systems 
Manual . 

Logically, the ILLIAC II FORTRAN compiler is a "one pass to assembly 
language" compiler. The output of the FORTRAN pass is fed directly into Pass II 
of the NICAP assembler. NICAP then produces a relocatable binary object program 
(plus a listing, if desired--see 7«1«9)« 

F0RTRAN II for ILLIAC II is essentially compatible with FORTRAN II for 
the IBM 709^ a s implemented under the P0RTH0S operating system at the University 
of Illinois. There are certain differences, however. In particular, F0RTRAN II 
for ILLIAC II will permit mixed arithmetic expressions (i.e., both floating and 
fixed point quantities in the same expression); the statements READ DRUM and 
WRITE DRUM are ignored by ILLIAC FORTRAN; and PRINT n, list causes a line image 
for off-line printing to be written on tape. Further, at present, none of double 
precision arithmetic, complex arithmetic, or Boolean arithmetic (D, I, and B 
respectively in column l) are implemented for ILLIAC F0RTRAN II. Cards in these 
categories will be ignored in compilation, but will appear on the listing, and 
will generate nonfatal errors . 
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This brings us to another item in the philosophy of ILLIAC II as applied 
to FORTRAN: every effort is made to compile errors. Therefore a distinction is 
made "between fatal errors and nonfatal errors. Fatal errors cause an unsuccessful 
compilation. However, the compiler will continue to analyze statements after 
finding a fatal error in the hope of finding more errors. Nonfatal errors need 
not cause an unsuccessful compilation; the compiler can make some, sense out of 
any statement containing nonfatal errors and no fatal errors, and it will compile 
the object code that it decides the programmer wants. Nonfatal errors are also 
generated, as has been mentioned, by such things as mixed expressions, even though 
in this case there is no doubt about what the programmer wants. 

Control cards must precede all programs run under the ILLIAC II Operating 
System including FORTRAN programs. The user is referred to Chapter 2 of the 
present manual for details of the operating system. We mention here some of the 
necessities : 

1. Each complete program must be preceded by a single ID card, whose 
format is identical to the format of the ID cards used by the IBM 
709^ operating under P0RTH0S. 

2. If execution is desired after compilation, a $ G0 card must be 
included between the ID card and the complete program. 

3. Each program or subprogram written in F0RTRAN must be preceded 
by a $ F0RTRAN card. 

k. If data is to be read from cards, it must be preceded by a 
$ DATA card. 

The remainder of Section 7.1 is devoted to a more detailed explanation of 
F0RTRAN. It is intended to be used as a reference, rather than as a learner's 
manual. As a reference, it is reasonably complete, perhaps more so than would be 
desired by people who are already familiar with F0RTRAN in general and want only 
to get at the peculiarities of this version of F0RTRAN. We apologize to such 
people, and hope they will be able to find what they want in spite of having to wade 
through much material. 
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Sections 7.1.1 through 7.1.6 specify in part the terms which can appear 
in F0RTRAN statements. More details are given in Section 7-1-7; where the state- 
ments are explained in alphabetic order, and in 7-1-8, where subprograms are 
explained. Section 7.1-9 explains the printed output from a F0RTRAN compilation. 
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7.1.1 Characters Used 

The (decimal) digits are through $: the letters are A through Z. The 
alphanumeric characters are the letters and digits together. The special characters 
used are =+-*/( ) , •• Two other special characters, $ and ' may be used in 
comment cards and in H field specifications in Format statements. 
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7.1.2 Source Program Card Layout 

The standard IBM F0RTRAN card layout is used. Thus, for example, there 
may he as many as nine continuation cards, columns 1 through 5 are allowed for 
the statement number (which must however be between 1 and 32,767 inclusive), and 
the statement starts in column 7. Columns 73 through 80 are ignored. The letter 
C in column 1 identifies a comment card; it is ignored in compiling, but appears 
on the program listing. Comment cards may appear anywhere in a program. An F 
in column 1 has a special meaning (see 7. 1-8). All other cards should be blank 
in column 1; any character other than F, C or blank (in particular, a D, B or i) 
in column 1 causes the card to be ignored. 
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7.1.3 Constants 

1. Fixed Point Cons tants : have 1 to 13 decimal digits, absolute value 

mj 

less than 2 

2. Floating Point Constants : are real numbers, absolute value between 
10 and 10 + , which must be written with a decimal point (e.g., 
5.0, - .01). They may be followed by E and a decimal integer n, 
denoting multiplication by 10 (e.g., 3-1E-6 = 3-1 X 10 ). 

Note: 1. Fixed and Floating point constants are represented in an identical 

manner inside ILLIAC II. Thus arithmetic statements and expressions 
can contain both kinds of constants and variables, contrary to the 
usual rules of F0RTRAN. That is, A = B + 1 and A = B + 1. have the 
same effect. Every constant occupies one word of memory (double 
precision is not available) of which the left-hand k$ bits represent 
the mantissa (with sign) in two's complement and the right-hand 7 bits 
represent a base k exponent, also in two's complement notation. 

2. Constants which are out of the allowed range will compile with the 
largest allowed value, and will cause a nonfatal error to appear 
on the listing. 
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J.l.k Variables 



1. Fixed Point Variables : have 1 to 6 alphanumeric characters, 
beginning with I, J, K, L, M or N. They have fixed point values 
and have the same range as fixed point constants . 

2. Floating Point Variables : have 1 to 6 alphanumeric characters 
beginning with any letter except I, J, K, L, M or N. They have 
floating point values with the same range as floating points 
constants . 
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7.1.5 Subscripted Variables 

Fixed and floating point variables may both have as many as three 
subscripts attached e.g., AAAAAA(3), Alllll(l, K, k) are floating point subscripted 
variables; IIIIIl(99), I22222(L M, k9) are fixed point subscripted variables. 
Subscripts should be either fixed point constants or fixed point variables; if 
a floating point quantity occurs as a subscript, it will be flagged as a nonfatal 
error. 

Subscripted variables must appear in a DIMENSI0N statement (see 7.1-7) 
before they appear anywhere else in a program, including in a C0MM0N statement, 
except that they may appear as call parameters in the first line of a subprogram 
(see 7-1.8) before appearing in a DIMENSION statement in the subprogram. 

Subscripts may be any valid arithmetic expression, except for input and 
output, where only the following kinds of expressions are allowed: (C and C' are 
unsigned constants and V is a nonsubscripted variable). 

C, V, V + C, V - C, C * V, C * V + C\ C * V - C 

In particular, expressions such as C + V, C * C are not allowed as subscripts for 
input and output. 

In arithmetic expressions subscripted variables can themselves be 
subscripted; this nesting of subscripts can be used to any level. For example 
H00K (K, N0T (N0T (k))) is legal. 

If a subscript is greater than ^095, an overflow will occur, and 
execution will be terminated by the system unless a system program that inhibits 
overflow traps has been called. 
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7.1.6 Expressions 

1. Arithmetic Expressions are strings of operands, operators, and 
brackets such as A + b/c, II + (2.*J1 - K), A * * B * * C. The operands in 
these expressions are "A* 1 , "b", "il", "2.", "Jl", and "K". The operators in 
these expressions are "+" (addition), "/" (division), "*" (multiplication), 
"-" (subtraction), and "**" (exponentiation). These are the only operators 
which are allowed. 

The operands in a given expression should be either fixed or 
floating; if both types are included, the expression is called a mixed expression 
and will be flagged as a nonfatal error, except that floating ** fixed will not 
be flagged. Any mixed expression will be treated as a floating point expression. 
The usual operator priority rules are observed, i.e., exponentiation is 
performed first, multiplication and division next, and addition and subtraction 
last. If brackets are omitted, they will be inserted from the left. Thus, for 
example, A ** B ** G is evaluated as (A ** B) ** C, and A * b/c/D ** C is evaluated 
as ((A * B)/C) / (D ** C). 

Note: All floating point operations are rounded rather than truncated so that 
numerical answers will generally be more accurate than those obtained with the 
same program when it is compiled by a compiler which uses a truncation process. 
In general, expressions are not rearranged for more efficient computation. 

2. Boolean Expressions are not yet implemented. 

3. Hollerith Expressions such as 3HYES are not yet implemented except, 
of course, in F0BMAT statements for output. 
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7-1-7 Statements 

First, we define the word "List," which is used in explaining input/ 

output statements. A list is a sequence x n , • .., x where each x. is one of 

In 1 

the following: 

1. A fixed or floating point variable, which may he subscripted, 
e. g., A; INTGR; A(3); X(4,9); ALP(l,2). 

2. A sequence of subscripted fixed or floating point variables, with 
variable subscripts, possibly followed by an expression giving the ranges of the 
variable subscripts, all enclosed in brackets: e. g., (A(l), I = 1, 3)j 
(C(K,3), X(I,K,4), K = 3,9); ((A(I,J), 1=1, 10), J = 1,5). In the second 
example, I must be a variable with a previously assigned value. 

3- An array name. 

Variables are input or output in the order in which they appear in the 
list, and within that order, they are ordered as illustrated by the following,: 
e.g., "A, (B(K,I), K = 1, 3), ((D(L,M), M = 1,2), L = 2, 3), H 11 is a list. 
Suppose A is an array with dimension (2, 3)« Then the variables occurring in th.e 
list will be input or output in the following order: A(l,l), A(2,l), A(l,2), A(2,2), 
A(l,3), A(2,3), B(l,l), B(2,l) B(3,l), D(2,l), D(2,2), D(3,l), D(3,2>, H. 

A list of FORTRAN statements", together with some explanation of the 
meaning and use of these statements, follows. The statements are listed in 
alphabetical order. 

a = e: This is an arithmetic statement , a must be a variable (either fixed or 
floating), and e must be an arithmetic expression (which may involve the 
variable a). Boolean statements are not yet implemented, a = e will result 
in the contents of the location whose name is a being set equal to the value 
of the expression e. If a is a floating point variable and e is a fixed point 
expression, then the value of e will be converted to floating point before 
being stored in a, and conversely, if a is a fixed point variable and e is 
a floating point expression, then the value of e will be converted to fixed 
point before being stored in a. 
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Example : X = X + 1. This will result in the contents of X being replaced 
by what is now in X, plus 1. 

ASSIGN n TjZi i : n must be a statement number, and i must be a nonsubscripted 
fixed point variable which is not an array name, i must appear in an 
assigned G0 T0 statement, and n should appear in an assigned G0 T0 statement. 
Note that the compiler does not check to see that this last condition is 
satisfied. 

Example : ASSIGN k-T T0 INT0 will cause INT0 in G0 T0 INTJZS, (l6, 47, 36, 9) 
to have the value hj . 

BACKSPACE j : causes symbolic tape unit j to backspace one logical record (a 

logical record is defined to be the physical records written by a previous 
WRITE TAPE statement). At the moment only scratch tapes 6 and 7 are available, 
but eventually more possibilities (i.e., more tape units) will be available for 
j. Note that no check is made at compile time to see that j = 6 or 7- 

CALL a(a , ..., a ): see 7-1.8, 7. 1.8. 5. 

C0MM0N x, , ..., x : Each x. is a fixed or floating point variable or array name 

(i = 1, ..., n). Array names must appear in a DIMENSION statement before the 
C0MM0N statement in the same program as the C0MM0N statement. 

C0MM0N is used in a calling program and in a subprogram to enable both programs 
to gain access to certain quantities in one area of memory called C0MM0N. 

As each program is compiled, a counter is used to keep track of how much of 
C0MM0N has so far been used. This counter is set to zero at the beginning of 
each compilation, and is increased by one by each variable or position of an 
array put into C0MM0N in the course of the compilation. Thus each variable or 
position of an array specified by a C0MM0N statement is associated with a 
unique number by this counter. When the programs are consolidated at run time 
into one program, every C0MM0N variable or position of an array associated 
with the same number is assigned to the same physical location in memory. This 
is the way in which variables and arrays in C0MM0N are used by several sub- 
programs . 
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Example : If the first C0MMjzSn statements in each of two subprograms are 

C0MM0N XI, X2 

COMMON X3 
and 

C0MM0N RI, R2, R3 

respectively, this would result in Xi and Ri representing the same location 
(locations , if Xi and Ri are array names of the same size), i = 1, 2, 3> • 

Any variables in C0MM0N which also appear in an EQUIVALENCE statement are 
located at the beginning of the C0MM0N area i.e., the EQUIVALENCE statement 
alters the number associated with a variable by the counter mentioned above. 

Example : The statements 

C0MM0N A, B, C, D 

EQUIVALENCE (C, G), (E, B) 

will cause A, B, C and D to be stored in C0MM0N in the order C, B, A, D rather 
than in the order A, B, C, D. G and E will be stored in the same locations as 
C and B respectively, as specified by EQUIVALENCE. 

If the READ TAPE or WRITE TAPE statements are used, then the first 256 words 
of C0MM0N must "be allocated for buffer use (see the library program I0LIST). 
This can be accomplished by 

DIMENSION XXX (2 56) 

C0MM0N XXX 

at the start of each program segment where XXX is a variable not used elsewhere 
in the program. The C0MM0N area of memory is located at the beginning of 
user's core. 

CONTINUE: is a dummy statement used to end a D0 loop if thg D0 loop would otherwise 
end with a transfer or a nonexecutable statement. 
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DIMENSION a , . .., a : (see also 7.1-5). Each a. is a subscripted, variable with 
one, two, or three numerical subscripts. The values of the subscripts given 
here are fixed point constants equal to the maximum value of the subscripts 
used in the rest of the program, e.g., a. = MATRIX (10, 20, 15 ) defines a 
three-dimensional matrix of dimension 10 x 20 X 15- The total amount of 
storage specified in one DIMENSI0N statement must be less than k0^6 words. 

The unsubscripted variable appearing in each a. is referred to as an array- 
name , e 'g-.> MATRIX is the array name in the example above. If an array- 
name appears in a program, it is understood to refer to the first location 
in the array, e.g., MATRIX refers to MATRIX (l,l,l). Note that an array 
name is not considered to be an unsubscripted variable. 

A DIMENSION statement sets aside one word in memory for each of the elements 
in the array. 

Arrays are stored in forward order in memory. For example, the 2x2x2 
array A is stored in successively higher numbered locations in the order 
A(l,l,l), A(2,l,l), A(l,2,l), A(2,2,l), A(l,l,2), A(2,l,2) A(l,2,2), A(2,2,2). 

The unique DIMENSION statement containing a given array name must appear 
before that array name is used elsewhere, except as mentioned in 7-1-5- 

D0 n i = j , j p , j_: n must be a statement number referring to a statement 

following the D0 statement; i must be a nonsubscripted fixed point variable; 
j , j and j_ must be either fixed point constants or nonsubscripted fixed 
point variables . A D0 statement results in the repeated execution of the D0 
loop (the statements following the D0 statement up to and including statement 
n), starting with the index , i, equal to j increasing i by j each time the 
Dj# loop is executed, and stopping the repetitions immediately after the D0 
loop has been executed for the least value of i such that i + j > j . Note, 
however, that the D0 loop is always executed at least once, even if j > j 2 « 
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Examples: (a) DIMENSION A(20) 

I = 2 
J =20 
D0 10 K = 1, J, I 
10 A(K) = K ** 2 

will result in A(k) being set equal to K , K = 1, 3. 5? •••> 17 > 19- 

(b) D0 13 KAPPA = 3, 2 
13 A = KAPPA 

will result in the floating point constant 3 being stored in A. 

The D0 statement may also be specified in the form Dj# n i 
case it will be assumed that j = 1. 

i> j-, ; J > Jo should not be altered by any statements in the D0 loop. 
However, altering i, j or j will be regarded as a nonfatal error. Altering 

It 



j ± , j 2 in which 



j has no effect 



Care must be taken to see that j is not set to zero, and 



that j is not increased by more than j each time through the loop 
must be true that j > 0, j > 0, and j > 0. 

Note that the last statement of a Dj$ loop cannot be a nonexecutable statement 
(e.g., DIMENSION, C0MM0N), nor can it be any transfer (e.g., G0 T0) or any 
D0 statement. If the last statement in the D0 loop would be one of these, the 
statement 

n CONTINUE 

where n is the statement number appearing in the D0 statement, should be 
written following what would otherwise be the last statement. Aside from 
these restrictions, any F0RTRAN statement may appear in a D0 loop. 

Example : 





DIMENSION 


A(10), B(5) 








DO 5 NICK 


- 1/5 








A(2*NICK) 


= NICK 








b(nick) 


= NICK ** 3 








PRINT 2, A( 


2* NICK), B(NICK) 






2 


FORMAT (1H0 


, 2(110)) 






5 


CONTINUE 
END 
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This program will cause the following numbers to print out in the format 
shown (b represents a blank) : 

bbbbbbbbblbbbbbbbbbl 

bbbbbbbbb2bbbbbbbbb8 

bbbbbbbbb3bbbbbbbb27 

bbbbbbbbbVbbbbbbbb64 

bbbbbbbbb5bbbbbbbl25 

A sequence of D0 statements is said to be nested if the D0 loop of each D0 
statement in the sequence contains the next D0 statement in the sequence and 
its Dj# loop. The length of such a sequence is called the depth of the nest , 
and is unbounded. Overlapping D0 loops are not permitted. 

Examples : (a) A = 1 

D0 1 I = 1,5 
D0 1 J = 1,5 

A = I * J * A 
1 B = I + J + B 

is a nest of D0 loops of depth 2 which will result in A being set equal to 
6192 x 10 ' (computed by ILLIAC) and B being set equal to 150. 

(b) D0 1 I = 1, 10 

D0/ 2 J = 1, 10 

11 = 1 
2 J = J 

is illegal, since the two D0 loops overlap. 

Control can be transferred by means of any G$ T0 or IF statement from 
inside a D0 loop to outside the loop. The value of the index of the loop 
is available outside the loop. A nonfatal error will occur if the program 
transfers back into the range of the D0 loop. When such a transfer is 
made, the value of the index will be the same as it was when the program 
transferred out of the D0 loop, unless the program changes it, in which 
case it will have whatever value the program gives it. 
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However, execution of a subprogram inside a D0 loop when the subprogram 
contains a D0 loop with the same index as the. original D0 will not cause 
the index of the original D0 loop to be changed. The general rule is that 
all variables in one program with same name (including indices of D0 loops) 
are identified (i.e., stored in the same location) but that variables with 
the same name occurring in different programs are not so identified. 

END: ends compilation of any program or subprogram. If no END statement is 

present, the F0RTRAN compiler will generate one. It is compiled as a GALL 
SYSTEM. In a subprogram, the END also acts exactly as a RETURN statement. 
If the user wants to terminate execution at any point in his program, he 
may do so by writing 

G0 T0 n 
and prefixing the statement number n on the END statement of his program. 

END FILE j: causes an end of file mark to be written on symbolic tape unit j. 
At the moment, j must equal either 6 or "J. 



EQUIVALENCE (x^ . 
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same location. Each x., y. or z. can be fixed or floating point, and may 
optionally include one subscript, which must be an unsigned fixed point 
constant, whose meaning is best explained by an example: Suppose x, = A(3). 
Then if A is an array name, x refers to second location following A(l), 
A(l,l), or A(l,l,l) as the case may be. If A is not an array name, x 
refers to the second location after A. An array name without a subscript 
refers to the first element of the array as usual. 

If a position of an array is equivalenced to a location X (i.e., either to 
a variable or to a position of another array), then the whole array will 
automatically be equivalenced to the locations on either side of X. 

Example : if the statements 

DIMENSION A(3,2), X(2,k) 
EQUIVALENCE (A(5), X(J+)) 
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appear in a program, then the arrays A and X will he stored overlapping 
each other as given by the figure : 



A(l,l)A(2,l) A(3,l) A(l,2) 
X(l,l) X(2,l) X(l,2) 




A(3,2) 

X(l,3) X(2,3) X(l,4) X(2» 



The locations in the box are the locations specified by the equivalence 
statement . 

EQUIVALENCE has roughly the same effect within one program as C^MMJZSn has 
between two or more programs . 

F0RMAT: See 5-3- The F0RTRAN format specifications for ILLIAC II are not the 
usual FORTRAN format specifications; they correspond to the format 
specifications for NICAP. 

FREQUENCY: ignored. 

FUNCTION a (a , ..., a ): see 7.1.8.2.2 

G0 T0 n: results in a transfer to the statement numbered n. 

G0 T0 (n , . .., n ), i: This is a computed G0 T0. It results in a transfer to the 
statement numbered n. . Thus i must be a nonsubscripted fixed point variable 
and its value must lie between 1 and k. 

Example : If I has the value 2, G0 T0 (3, 39, ik) , I results in a transfer to 
statement 39- 
G0 T0 i, (n , ..., n ): This is an assigned G0 T0. It is generally not as useful 

J. K. 

as a computed G0 T0. It results in a transfer to the statement numbered n 
when i = n . i must be a nonsubscripted fixed point variable. Note that 
for each r, 1 < r < k, there must be a statement numbered n , or a fatal 
error will result. The value of i should previously have been assigned by an 
ASSIGN statement. 
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Example : If the statement ASSIGN k-7 TO INT0 was the last ASSIGN 

statement referring to INT0 to be executed before G0 T0 INT0, (l6, V7, 

36, 9); then the latter statement will result in a transfer to statement ^7- 

IF ACCUMULATOR 0VERFL0W n , n : results in a transfer to statement n if 0V 
(the accumulator overflow switch) is set, and to statement n p otherwise. 
However, in the normal mode of operation, accumulator overflow causes a 
system trap which terminates execution. It is possible to avoid this trap 
by using the subroutine FPTIA. The user is referred to the ILLIAC II 
library write-ups for details. 

IF (e) n , n , n : results in a transfer to statement n , n or n depending 
whether the arithmetic expression e has a value less than, equal to, or 
greater than zero, respectively. 

IF (SENSE LIGHT k) n^, n 2 : If sense light k (l < k < 13) is on, it will be 

turned off, and control will transfer to statement n . If sense light k is 
off, it will remain off, and control will transfer to statement n ? . If k 
is > h, then a nonfatal error message will be produced for the sake of 
compatability with FORTRAN II on the 709^' k must not be a variable. The 
sense lights are stored in M13, which is a 13-bit modifier in fast register 
7. Sense light 1 is the right-most bit of M13- 

IF (SENSE SWITCH k) n , n : If sense switch k (l < k < 13 ) has been turned on 

control will transfer to statement n , and sense switch k will remain on* If 
sense switch k is turned off control will transfer to statement n p , and sense 
switch k will remain off. k must not be a variable. 

At the moment, it is not possible to turn a sense switch on except by writing 
a NICAP subprogram. Some day, it may be possible to set sense switches by 
means of a $ SENSE SWITCH card. For those users who cannot wait, we offer 
the information that the 13 sense switches are stored in M12, a 13-bit 
register in fast register 7- Sense switch 1 is the right-most bit of M12. 

If k is > 6, a nonfatal error will be generated for the sake of compatability 
with F0RTRAN II for the IBM 709^. 
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PAUSE: causes a halt order to compile. Halt is a trapped order which will 

terminate the job. If a halt is desired, a $ HALT card should he used at 
the start of the program (see 2.3). 

PRINT ru,, list : causes BCD line images for printing to he written on the output 

F 

tape, n must he the number of a F0RMAT statement which specifies the 

F 

format of every line image. "List" is explained at the start of this 
section. 

PUNCH n_,, list : causes BCD card images for punching to he written on the output 
F 

tape, n must be the number of a FORMAT statement which specifies the format 

F 

of every card image. "List" is explained at the start of this section. 

READ n , list: causes BCD card images to be read from the input tape, n^ must 

be the number of a F0RMAT statement which specifies the format of every card 
image. "List" is explained at the start of this section. If the user attempts 
to read binary card images with this statement, execution is terminated. 

READ DRUM: ignored. 

READ INPUT TAPE j, n, list: has the same effect as READ n, list. The tape 
number j must be supplied but is ignored. 

READ TAPE j, list: causes binary information to be read from one logical record 
on the tape mounted on symbolic tape unit j into the locations specified in 
the list. At the moment, j must equal either 6 or 7- "List" is explained 
at the start of this section. A logical record is read completely only if 
the list specifies as many words as the logical record contains; no more than 
one logical record is read. The tape, however, always moves to the beginning 
of the next logical record. 

Notes : 1. A logical record is defined to be the physical records written by 
a previous WRITE TAPE statement. 

2. If C0MM0N is used in the same program as READ TAPE, 256 words at 
the start of C0MM$N must be set aside as a buffer area (see the 
explanation of the C0MM0N statement). 
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RETURN: is the last executed statement of a subprogram (see 7- 1.8.2.2). 
REWIND j: cause symbolic tape unit J to rewind. At the moment, J must equal 

either 6 or ?. 
RIT j, n, list: has the same effect as READ n, list. The tape number j must be 

supplied but is ignored. 
SENSE LIGHT k: If k = 0, this results in all thirteen sense lights being turned 

off. If 1 < k < 13, then only sense light k is turned on. If 5 < k < 13, 
^hTn a nonfatal error is produced for the sake of compatibility with FORTRAN 

II for the IBM 709U. The sense lights are stored in the 13 bit modifier M13- 

k must not be a variable. 
STOP: causes termination of execution of the program and a return of control to 

the ILLIAC system programs. It is identical to CALL SYSTEM as a means of 

terminating a job. 
SUBROUTINE a(a , . .., a Q ): see 7. 1.8 A. 
WRITE DRUM: ignored. 
WRITE 0UTPUT TAPE j, n, list: has the same effect as PRINT n, list if J is an 

even number or a variable name. If j Is an odd number, it has the same 

effect as PUNCH n, list. 
WRITE TAPE 3, list: causes one logical record of binary information to be 

written on symbolic tape unit j from the locations specified in the list. 

At the moment, j must equal either 6 or 7- "List" is explained at the start 

of this section. Note: a logical record may include several physical 

records but not vice versa. If C0MM0N is used in the same program as WRITE 

TAPE, 256 words at the start of C0MM0N must be set aside as a buffer area (see 

the explanation of the C0MM0N statement). 
W0T j, n, list: is identical to WRITE 0UTFUT TAPE. 
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7.1.8 Subprograms: Functions and Subroutines 

A subprogram is a program which is used by another program (the 
calling program). Subprograms in general must be assembled independently of one 
another and independently of the calling program and then loaded into the machine 
all together when it comes time to run the main program. Under the present 
batch processor this is achieved by preceding just the complete program with an 
ID card and a $ G0 card and preceding each subprogram or calling program with a 
$ F0RTRAN card (or $NICAP etc., as the case may be). This will result in the 
compilation of all programs which are to be compiled followed by execution of 
the complete program. For further information the user is referred to Chapter 2. 
Note that it is possible to define a function subprogram by means of an arithmetic 
expression (see 7.1.8.2) and that in this case independent assembly is not 
required; in fact, it is not possible. 

Every subprogram has a name which is assigned to it when the subprogram 
is defined. A subprogram is then called (i.e., used by another program) by means 
of its name. A detailed explanation of how to name and use a subprogram is given 
below, starting with Section 7-1.8.1. 

As the reader may have gathered, there are two kinds of subprograms : 
functions and subroutines. Every function and most subroutines have associated 
with themselves a list of parameters. When the subprogram is defined, the list is 
a list of dummy parameters . Dummy parameters must be fixed or floating point 
nonsubscripted variables or array names. This list of dummy parameters must 
appear immediately to the right of the name of the subprogram when the subprogram 
is defined. (See 7.1.8.2 and 7.1.8.4 for methods of defining subprograms). The 
raison d'etre of dummy parameters is that they serve as place holders in the sub- 
program for call parameters . Call parameters must be either fixed or floating 
point constants or variables, or subscripted variables, or array names, or 
arithmetic expressions, or subprogram names. 

When the subprogram is used, a list of call parameters appears 
immediately to the right of the name of the subprogram. In FORTRAN, the list of 
call parameters and the list of dummy parameters must be of the same length, and 
there must be a certain amount of agreement in the characteristics of dummy and 
call parameters occurring at the same positions of their respective lists. The 



Date: 


6/3/65 


Section: 


7.1.8 


Page: 


l of 4 


Change : 




ILLIAC 


II MANUAL 



amount of agreement required is made precise below. We digress here to clarify 
the notion of a placeholder: any occurrence of a dummy parameter as a place- 
holder in the definition of the subprogram will be replaced for purposes of 
execution by the call parameter corresponding to it when the subprogram is called. 
Thus the call parameters can be used to transfer data from the calling program 
to the called subprogram, and vice versa. 

The agreement required between corresponding dummy and call parameters 
is in the following attributes : 

1. If one of the parameters is an array name, then the other one must 
also be an array name. Note that a parameter is an array name if 
and only if it is a variable which appears in a DIMENSION statement. 
Further, the two arrays must have the same size and dimension. Note 
that the size of the array to which the dummy parameter refers to 
cannot depend on another dummy parameter, i.e., dynamic dimension is 
not permitted. 

2. If a call parameter is subscripted, then it must appear in a 
DIMENSION statement in the calling program. The subscripts of a 
call parameter may be constants, variables, or subscripted variables 
again. 

3. If a dummy parameter is used as a subprogram name in the subprogram 
S, say, for which it is a dummy parameter, then the corresponding 
call parameter in a call to S must appear in columns 7 - 72 of an 

F card in the calling program (before it appears as a call parameter), 
unless the call parameter is used as a subprogram name elsewhere in 
the calling program (i.e., unless the calling program has some other 
way of telling that this call parameter is actually a subprogram 
name.) An F card is a card with an F in column 1. More than one 
subprogram name can appear in an F card, provided that the names 
appearing are separated by commas . Dummy parameters standing for 
subprogram names are used in subprogram definition precisely as the 
subprogram names are intended to be used. No F card is required to 
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identify the appearance of a dummy parameter standing for a 
subprogram name in a subprogram. Note that it is not permitted 
to call the subprogram "being defined from within said subprogram, 
i.e., recursive definition of subprograms is forbidden 

k. No agreement is necessary with respect to parameters being fixed 
or floating point . 

We have pointed out the use of call parameters and dummy parameters for 
the transfer of information between program segments. There is another method 
of transferring information: put it in C0MM0N (see 7.1. 7). C0MM0N can only be 
used when the call parameters are variables, subscripted variables or array names. 
The advantage of using C0MM0N are first, that the subprogram performs fewer (if 
any) address constructions and second, that if C0MM0N is not used, then data may 
be transferred from the calling program to the subprogram, which takes time and 
space, particularly if large arrays are involved. Thus the use of C0MM0N means, 
in general, that subprograms will be executed more quickly and take less space. 

A word about the distinction between subroutines and function sub- 
programs : a function subprogram always leaves a number (the value of the 
function) in the accumulator when it returns control to the calling program; a 
subroutine does not leave anything meaningful in the accumulator. Aside from this 
distinction, plus the fact that a function subprogram must have a nonempty 
associated list of parameters, function subprograms and. subroutines are the same. 

Some notes : 

1. Note that care must be exercised in writing subprograms to ensure 
that a subprogram does not change the values of the call parameters 
specified by the calling program before it uses them. 

2. Note that if the sense light settings are changed in a subprogram, 
that change is effective in the main program. M13 is used to hold 
the sense lights. 
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3« Note that if the value of a parameter in the list of dummy 

parameters is changed (e.g., if it appears on the left-hand side 
of an arithmetic statement) in the subprogram, then the corres- 
ponding call parameter must be a variable, a subscripted 
variable, or an array name (i.e., it should not be a constant or 
an arithmetic expression. If it is a constant, the value of the 
constant will be changed. Changing the value of an arithmetic 
expression in this way is meaningless). 
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7.1.8.1 How to Name a Function 

A terminal F is allowed in a function name, and a function name can 
thus be up to seven characters long. Since other names in F0RTRAN can only be 
six characters in length, it is convenient to remove the terminal F in compiling 
a seven- character function name. This is done. However, the terminal F is not 
removed from a function name of six or fewer characters in length (except for 
library functions—see 7.1.8.2). Thus the labels NAMEF and NAME will be 
distinguished by F0RTRAN but NAMINGF and NAMING will not be distinguished. 

In general, the terminal F is not required on the names of user defined 
functions in this version of F0RTRAN, although it may be used. If, however, a 
function name of four or more characters in length ending in F is used, then it 
refers to a fixed or floating point valued function depending on whether the 
first letter of the name is X or not. If the name is fewer than four characters 
or if it does not end in F, then it is fixed or floating valued according as it 
begins with one of I, J, K, L, M or N or not. Thus XPERTF, INF, and INTGER are 
fixed point valued; XPERT, IRTF, PAD, and XAF are floating point valued. 
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7.1.8.2 How to Define a Function 

Functions are defined in three different ways : 

1. Library functions and built-in functions (all built-in functions 
and some library functions are predefined in F0RTRAN) . 

2. Arithmetic statement functions 
3- Function subprograms 

FORTRAN provides the following library functions for the user: 

SQRTF(a) = n/o" 

EL0GF(a) = log a 

BL0GF(a) = log a 

TL0GF(a) = lo S 10 a 

EXPF(a) = e a 

SINF(a) = sin(a) (a in radians) 

C0SF(a) = cos (a) (a in radians) 

TANHF(a) = tanh(a) (a in radians) 

ATANF(a) = arctan(a) radians 

Note: The final F is optional in all of the above names; thus SIN (a) means the 
same as SINF(a) . 

In addition, the following functions are "built-in" to F0RTRAN (a 
and 3 should be floating point unless otherwise specified): 



ABSF(a) 
XABSF^ 
M0DF(a,p) 
XN0DF 

INTF(a) 

XINTF 

SIGNF(a,p) 

XSIGKF 



= a 



= a 



[a/pft 



i@ 



= [Oil 



= |a| if -p > o 

= -la I if £ < o 



Date: 


6/3/65 


Section: 


7.1.8.2 


Page : 


1 of 2 


Change : 




ILLIAC 


II MANUAL 



FL0TF(a) 

XFIXF(a) 

DIMF(a,p) 

XDIMF 

MAXOF(a,pP 

XMAXOI® 

MAXlF(a,p)® 



xmaxi: 

MINOJ® 



xmino: 

MINI 
XMINIF^ 



a (change from fixed to floating) 
a (change from floating to fixed) 
a - NUN (a,B) 



Wot nec- 
essary on 
ILLIAC II 



maximum of Oi and p where a and B are fixed point 



maximum of a and (3 where a and B are floating 
point 



defined by analogy with MAX. 



Notes: (l) X prefixed indicates that the value of the function is fixed point 
rather than floating. 

(2) [a] = greatest integer < a. 

(3) These functions are restricted to two arguments. 

(h) The final F must be present on all built-in function names. 

The distinctions between library and built-in functions are minimal. 
First, the user may, with the approval of the system programming group, add to 
the set of library functions (see 7.1.8.2. 3) but not to the set of built-in 
functions; second, the compiler will not have to search the library tape to 
identify built-in functions (although it does at this time); and third, some 
built-in functions (such as MAX0F) will eventually have a variable number of 
arguments . 

The user may define functions himself in three different ways which 
are described in the next three sections. 
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7.1.8.2.1 Arithmetic . Statement Functions 

This type of function is simply defined within any F0RTRAN program 
or subprogram by setting the function name, followed by brackets enclosing the 
dummy parameter list, equal to the desired arithmetic expression. 

Examples: 1. The statement 

F(X,Y) = (X * Y - X ** Y)/(X + Y + 3.0) 

defines a function F of two variables; the statement 

G(U,V,W) = F(SIN(U ** 2 + V ** 2),W) + F(C0S(U ** 2 + V ** 2), W) 

uses F to define a new function, G, of three variables. 

2. Subscripted variables are not allowed as dummy parameters in 
this type of function definition. Thus the statements 

F ] _(X) = X(10) 

F 2 (X) = X(I) 



F (X,J) = X(J) 



are illegal, but 



F^(I) = Y(I) ** 2 



is legal. 



Note that no function can call itself directly or indirectly in its 
definition. Thus for arithmetically defined functions, the following examples 
are grossly illegal: 

1. F(0) = 1 

F(X) = F(X - l) * X 

2. G(0) = 
F(0) = 1 

F(X) = G(X - 1) + X 

G(X) = F(X - l) * X 
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Arithmetic statement functions are local to the program or subprogram 
in which they are defined, with one exception: the name of such a function 
may appear as a call parameter in its defining program, in which case the 
function may be used by the called subprogram. 
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7.1.8.2.2 FUNCTION a(a ,...., a ) 

Here a is a fixed or floating point name and (a,, . .., a ) is a list 
of dummy parameters. The name of the function, a, must obey the rules for 
function names given in 7.1.8.1. The statement FUNCTION a(a 1 , . .., a n ) is then 
the first statement of a function subprogram (although this is not checked). 
The last statement executed by the function subprogram must be RETURN or END. 
The variable a must occur at least once on the left hand side of an arithmetic 
expression or in an input statement list in the function subprogram. Aside 
from these restrictions, the function subprogram may be any legal FORTRAN program. 

It is also possible to encode function subprograms in NICAF if the 
user wants some portion of his object program to be more efficient than an object 
program written in the F0RTRAN source language. For this purpose, the user 
needs to know the following facts: 

1. The F0RTRAN compiler computes all subscripts occurring in the list 
of call parameters, and then compiles JSB 3, FIL, followed by as 
many DECQ's as are needed to give the addresses of the call para- 
meters in the same order as specified by the calling program. 

A FIL is generated after the last parameter. 

If the parameter in a call statement is a subprogram name, or an 
indexed variable, the parameter given in the DECQ, sequence is the 
address of a temporary cell containing the transfer vector or the 
value of the variable respectively. If the parameter is a number, 
then the DECQ parameter is the address of a cell containing that 
number in floating point . 

2. Fast registers F^, F5 and F6 must be saved (the indices of D0's 
and other such valuable information is stored therein). 

3. M12 and M13 contain the sense switches and lights. 

h. The resulting value of the function must be stored in the 
accumulator before returning. 



Date: 


6/3/65 


Section: 


7.1.8.2.2 


Page: 


1 of 1 


Change : 




ILLIAC 


II MANUAL 



7.1.8.2.3 User Defined Library Functions 

The user may redefine by a SUBROUTINE or FUNCTION subprogram any 
library program. He should, however, beware of the names PRINT, READ, 
PUNCH, I0LIST and any name starting with SYS— which are used by l/0 state- 
ments since if he uses these names, the program so named will no longer be 
available to him. 
Example: The subprogram 

SUBR0UTINE PRINT(X) 
PRINT 1,X 
1 F0RMAT (1H, F10) 
END 

will cause the name PRINT to be redefined. In fact, the program above causes 
an infinite loop to assemble, since the statement PRINT 1,X in it assembles 
as a call to it. 
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7.1.8.3 How to Name a Subroutine 

Any fixed or floating point variable can be used as the name of a 
subroutine except as mentioned in 7.1.8.2.3. 
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"J.l.&.h How to Define a Subroutine 

F0RTRAN does not provide any built-in subroutines. Subroutines are 
defined by writing a subprogram which begins with SUBR0UTINE a^ ... a^), 
(a is the name of the subroutine.; (a ... a n ) is the list of dummy parameters: 
it may be empty) . and which consists of any legal sequence of F0RTRAN state- 
ments such that the last executed statement is always RETURN or END. It is not 
necessary that the variable a appear on the left hand side of an equation or 
that it appear in an input list. 

Subroutines may also be encoded in NICAP as for function subprograms 
except that nothing need be returned to the accumulator. 
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7.1.8.5 How to Use a Subprogram 

The list of call parameters and the use of C0MM0N have been explained 
in 7.1.8 and 7.1. 7- It remains to explain the CALL statement and give examples. 

CALL may be used to call any subprogram. This is not usually the 
case in F0RTRAN. 

Suppose that the subprogram name and list of dummy variables not 

specified in C0MM0N are a(a, ... a ). Then to call the subprogram a with call 

parameters (b n ... b ), one writes the statement CALL a(b n ... b ) in the 
1 n " 1 n 

calling program. This will result in automatic transfer to, execution of, 
and return from the subprogram using the parameters b . . . b in place of 
a, . . . a . Parameters specified in C0MN0W may appear as call parameters, 
although they normally do not . Note however, that it does not make sense in 
general for parameters specified in C0MM0N to appear as dummy parameters, 
since it results in the contents of C0MM0N being overwritten. 

To understand the effect of doing so the user should understand the 
way in which data is transferred. Separate storage is allocated to variables 
in subprograms. (This is the reason for using C0MM0N where possible.) On 
entry to the subprogram, all of the data indicated in the CALL list is copied 
from the calling program storage area into the subprogram area. Thus if the 
subprogram has dummy variables in C0MM0N, they will be overwritten at this 
time. On return from the subprogram, the data is copied back from the sub- 
program storage area to the main program area. If any of the call parameters 
are in C0MM0W, they, may be overwritten at this point, 

A function subprogram may also be used without using the CALL state- 
ment. (So may subroutines: again, this is unusual F0RTRAN.) In fact any 
mention of the name of a function (together with a correct list of call 
parameters) in an arithmetic expression will result in execution of the 
function subprogram, 

E L x(i) 

Example: The following function subprogram computes Z for values 
of N < 20: 
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FUNCTION PWRPLSF (X,Z,N) 
DIMENSION X(20) 
Y = 0.0 
D0 1 I = 1,N 
1 Y = Y + X(l) 
PWRPLSF = Z ** Y 
END 

The following program uses this function subprogram to compute and print 
successively the quantities 

2 

DIMENSION A (20) 

B = 2.0 

D0 10 K =1,15 

A(K) = K 

X = FWRPLS(A,B,K) 
10 PRINT 12, X 
12 F0RMAT (1H0, F30) 

END 
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The output from this program is as follows: 

2 

8 

Gh 

\02h 

32768 

2097152 

268U35U56 

68719U76736 

35181+372088U81+ 

36028797018533888 

. 73786976293932236800 

302231^5^89937950621+9728 

2^7588007852685 0^4-5 3J+31386061 

+ . U0561+8l9206666928l773515E+32 

+ . 1329227995750008139862U3E+37 

This output appears to be most impressive; unfortunately, however, 
only the 12 most significant digits have meaning in these numbers. The 
remaining digits are garbage. 

Note the following point to beware of: suppose we define 

SUBR0UTINE SETl(S) 

X = 1 

RETURN 

Then if we write the statement 

CALL SET1 (2), 

this will result in the location which contained the value 2 being changed to 
contain the value 1. 
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7.1.9 Print ed Output From a Compilation 

If a $PRINT 0BJECT control card is present at the front of the program 
deck to be compiled, the following items appear on the listing in the order 
given (these items are explained below): 

(a) ID information, date, control cards 

(b) F0RTRAN source program listing 

(c) Error messages, if anyj these are self-explanatory 

(d) Compiled object program, in machine language (it is hoped 
eventually to print a NICAP version of the object program 
beside the machine language version) 

(e) LOCATIONS 0F VARIABLES N0T APPEARING IN FUNCTI0NS 0R 
DIMENSION STATEMENTS 

(f) L0CATI0NS 0F DIMENSIONED VARIABLES AND FUNCTION NAMES 

(g) L0CATI0NS 0F STATEMENT NUMBERS USED BY THE S0URCE PR0GRAM. 

If there is no $PRINT 0BJECT control card, item (d) will not appear, 
but everything else will. Further, if a $G0 control card is present, then 
item (h) will appear, independently of the presence of the $PRINT 0BJECT card: 

(h) MEM0RY MAP. 

The following explanation is offered of items (a) through (h) 
(this explanation is meant to be read in connection with a listing of a 
F0RTRAN compilation). 

(a) First line: The left-most item is a sequence number 

indicating what batch, and where in the batch, the 

job was run. The remaining items are self-explanatory. 

Second line: The left -most portion is a copy of the ID card. 
The remaining three items are the date, the sequence 
number (again), and the time of day at which the job was 
started, in hours, minutes, seconds, and decimal points 
of a second. 

Third line, and possibly fourth line, fifth line, etc. These 
lines are copies of the control cards . 
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Last line: This specifies the version of F0RTRAN used to 
compile the program. 

(b) Self-explanatory (Note that fatal error messages about undefined 

statement numbers print out immediately following item (b), 
and are not included in item (c\) 

(c) SEQUENTIAL STATEMENT NUMBER BEL0W: Refers to the sequence 

numbers assigned by the compiler to each statement. 
These sequence numbers appear to the left of the statement 
as listed in (b). Note that comment cards are not given 
statement numbers. Note also that the word FATAL will 
appear to the right of statement numbers referring to 
fatal errors ; if the error is nonfatal, nothing is printed 
to the right of the statement number. 

(d) The reader is referred to Chapters 2, 3, and h of the present 

manual for an explanation of ILLIAC II machine language. 
We content ourselves here with the observations that the 
left -most column of figures consists of the decimal 
numbers assigned to successive instructions in the NICAP 
program generated by the compiler from the user's 
F0RTRAN program; that the second column consists of the 
relocatable decimal storage locations assigned to this 
program by the NICAP assembler; that the third column 
is a translation of the second into octal; and that the 
machine language listing itself is in octal. Note also 
that the first few words of the program contain transfer 
vectors to subprograms, if any of the latter have been 
used. 
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(e) 1. The name of a function appears here on the listing of the 

function subprogram* The location given is' the temporary- 
storage location of the value of the function within the 
subprogram. 
2;*,., Internal names used by the compiler and having no 

significance for the F0RTRAN user also appear here. These 
names may be identified by the fact that they start with 
a number while all of the user's names start with a letter.. 

(f ) 1, The name of a function or subroutine subprogram appears here 

on the listing of the subprogram. The location given is 
the entry point to the subprogram. (Note: The entry to a 
subprogram is near the end, not the beginning, of the 
listing of the subprogram, i.e., the entry to a subprogram 
is generally nearer to the highest core location used by 
the subprogram than to the lowest.) 
2. The names of subprograms called in the program being listed 
appear here. The location given is the location of the 
transfer vector (to the subprogram) within the program 
being listed. 

(g) Each statement number appearing in the user's program appears 

here at least once, independently of whether any reference 
is made to it by statements in the user's program. 
Normally, the octal address given for each statement 
number is the quarter word to which the statement number 
refers. However, statement numbers appearing in D0 state- 
ments (e.g., 13 appears in D0 1,3 I - 1, 33, 2) may appear 
here more than once in which case the situation is more 
complicated. 

To be precise, a statement number will appear here once 
for each D0 statement that it^gipeajrs; iM-in the "user's program; 
the octal address given for each D0 statement appearance 
will be the location of the start of the D0 loop to which 
the D0 statement refers. Further, if a reference is made 
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in a transfer statement (e.g., in an IF statement or 
in a G0 T0 statement) to a statement number appearing 
in a D0 statement, then that statement number will appear 
here once more than the number of D0 statements in which 
it appears, and the octal address given in this case will 
be the location of the first machine language instruction 
in the sequence of machine language instructions used to 
close the D0 loop (this address will be greater than any 
of the addresses associated with appearances of the state- 
ment number in a D0 statement). 
(h) 1. C0MM0N: location given is the start of the C0MM0N area of 
core. 

2. ERASABLE: location given is the start of the ERASABLE 

area of core.; 

3. AVAILABLE MEMORY STARTS AT: location given is the highest 

location used by the program, except that the monitor is, 
of course, always in locations l6,000n through 17,777o 
(the four high blocks of core), 

k. FR0GRAM EXECUTION BEGINS AT: location given is the absolute 
address of the first executable instruction: in the object 
program; in order to* find out how much the program has been 
relocated by, it is necessary to find out how many transfer 
vectors there are, and subtract that number from the 
location given. 

5. L0CATI0NS 0F SUBR0UTINES USED: location given is the 
entry point to the subroutine. The relocation of the 
subroutine can be computed by subtracting the location 
mentioned in (f )l. from the location given here. 

Note: No indication is given when a program exceeds the amount 
of core available to it; the excess only becomes apparent 
when the program is executed. 
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8, THE PROGRAM LIBRARY 

8.1 Introduction 

Programs in the library fall into three classes : 

1) subroutines 

2) complete programs not of the system type 

3) system programs (e.g., assemblers, compilers, 
general l/o programs, monitors). 

This chapter will describe classes l) and 2) completely and the programming 
details of class 3) All of class 3) will be on tape unless their use has 
been discontinued, (Later on, disc files will be used instead of tape.) 
Some of classes l) and 2) will be on tape (as many as possible). The 
remainder will be available on cards. 
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8.2 Classification 

The numbering of the program is as follows. The number will 
be made up of five parts, 

CC, MMM. . .M, LL, QQ, SS 



where 



CC is a classification code identical to the one 
used in the SHARE 7090 library. (See Digital 
Computer Laboratory Technical Progress Report, 
April, 1962, pp. k2-k6 for details.) 

MMM. ..M is a four- to six-letter semi-mnemonic identifica- 
tion of the routine. It is unique to each routine. 

LL is the change level. If the description is 

changed in any way, the change number will be 
incremented. Normally the routine itself should 
not be changed. 

QQ is the area of origination, normally UI. 

SS is a code specifying the system and/or language in 
which the program is available. No assignments 
have been made to this yet. 
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8.3 Subroutine Conventions 

Subroutines in the library follow the following conventions. 

ENTRY Made with a JSB3, .... 

A subroutine may start in any control group unless the description 
states otherwise. If a subroutine does have requirements on the quarter 
word placing, it will take care of them automatically by FIL pseudo operations, 



EXIT 

Made from subroutine by JLH3. Therefore the entry JSB3, ... 
must be followed by a FIL. This is taken care of by using the CALL pseudo 
operation. 

Parameters and Data 

ON ENTRY 

Thirteen-bit parameters or addresses are handled as follows: 

Single address length parameter in ML. More than four are 
packed four per word in consecutive locations in memory 
called control words . The address of the first location 
is in Ml. Less than four but more than one are packed into 
the word followed the location of the address of the JSB3, . . . 
instruction used for entry.* 

Fifty- two bit parameters or data appear in memory with the locations of 
individual words or the start and extent of blocks as 13-bit parameters. 
When there are one or two special data words, they may be in the Accumulator 
if only one, or the Accumulator and F2 in the case of two words. 



* 

Some parameters fit more naturally into control words, some into the 

word(s) following the entry jump order, so this convention may be 

dropped as experience is gained in the use of this machine. 
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ON EXIT 

A single 13-bit answer is put in MO. When there is more than 
one 13-bit answer, they are packed., four per word, into control words. 
Fifty-two bit answers are put into locations specified in control words 
on entry. One or two words of answer may appear in the accumulator and 
F2. Exit is made to the left-hand control group in location M3 except 
if parameters appeared in the order stream after the JSB3, . . . entry, 
in which case exit is made to the left-hand control group of the first 
location free of parameters. 



TEMPORARY STORAGE 

Subroutines which are complete in the sense that they do not 
use user-supplied subroutines as auxiliary subroutines use locations 
COMMON, C0MM0N+1, . .., etc., as far as necessary. 

Subroutines on the library tape are in binary, and therefore 
do not require the programmer to define COMMON. However, if the NICAP 
deck is used, COMMON must be defined by the programmer. 

Subroutines using auxiliary subroutines require that M2 contain 
a location which is the start of a block of free locations of sufficient 
length. For example, the Runge-Kutta integration of ordinary differential 
equations uses four temporary storage locations. If M2 = 100 on entry 
to Runge-Kutta, these locations are 100, 101, 102 and 103, On entry to 
the auxiliary subroutine, M2 will contain 104; on return to the main 
program, it will contain 100 again. 
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DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
Bl-ATANl-OO-UI-AL 



NAME: 

PURPOSE : 

OTHER SUBROUTINES USED: 

TEMPORARY STORAGE: 

NUMBER OF WORDS: 

EXECUTION TIME: 

USE: 

METHOD: 



Arctangent Subroutine 

Computes arctangents of arguments 

None 

Four words beginning with Cj^Miy^N 

51 words 

210 usee (average) 

Normal entry with argument in accumulator. Normal exit 
with, result in accumulator. F2 through F7 saved. 

The sign of the argument is noted and the absolute 
value used to compute the arctangent. The correct sign 
is restored before exit. To obtain the arctangent, the 
domain of X is divided into seven intervals as follows: 



No. 




Interval 


Comments 










< X 


< 


4- * 

tan 2k 


Use P(x) directly 




1 


tan 2k 


< X 


< 


3* 

tan 2Z 


Use Eqn A with K = 


1 


2 


3* 
tan ££ 


5 X 


< 


5* 
ta " 2^ 


Use Eqn A with K = 


2 


3 


5* 
tan 2T 


< X 


< 


4- 7* 
tan 25 


Use Eqn A with K = 


3 


k 


tan 2? 


< X 


< 


. 9* 
tan ^ 


Use Eqn A with K = 


h 


5 


9* 

tan ^ 


< X 


< 


tan 7^ 


Use Eqn A with K - 


5 


6 


u. 31* 

tan -2ij: 


< X 


< 


00 


Use Eqn B 
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Approved by: 
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METHOD (Continued) 



kit X " tan 12 
Eqn A: arctan X = -r- + arctan t , t n = : — 

1 + X tan -r— 



Eqn B: arctan X = — - arctan — 



P(x) is used to compute arctan t, and arctan -. 



P(x) = a,x + ax + ax + ... + a, _x 



17 



where 



a ± = 1.00000 00000 00000 
a 3 = -0.33333 33333 33333 
a 5 = 0.19999 99999 99998 
a = -0.14285 71428 56331 
a = 0.11111 11109 07794 

a ll = -°- 9°9 90609 63368 

a x = O.O7692 04073 2I+915 

a = -O.O6652 48229 41311 

a = O.05I+67 21009 39594 



ACCURACY: 



12 decimal digits 



Maximum error 0-1.0 .23 10 

Average absolute error 0-1.0 ,5 10 



■12 
■13 



Maximum error 0-0.1 .7 10 

Average absolute error 0-0.1 .11 10 



-13 
•13 



REFERENCE : 



Perlin, I. E. and J. R. Garrett, Mathematics of 
Computation , National Academy of Sciences—National 
Research Council, vol. Ik, No. 71, July i960, pp. 270-274, 
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O d- 
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d- (D 


OQ •• 


H- .. 


CD 


O 


a • 


£f 


CjO 


CO -J 


O 


-p- ro 


H3 


1 




td^. 


vn 


H ON 




1 -p- 




> 




i-g 




> 




3 




H 



ATANI 


SFR 


5 * COMMON 




SFR 


2 8 CQMMON*2 




SFR 


3.COMMGN+3 




TN 


ATAN1G 




STR 


F2 




CAM 


4 


ATANI A 


CNM 


5 


ATAN1B 


SUB 


ATAN1K+M5*-! 




ADM 


5*1 




TIP 


ATAN1B 




JZN 


5,ATAN1C 




CAM 


6» M5~6 




JZM 


69ATANIH 




CAD 


F2 




SUB 


ATAN1L+M5-1 




STR 


F3 




CAD 


ATAN1L+M5-1 




MPY 


F2 




ADD 


1. 




VID 


F3 




SFR 


6 1- COMMON* I 




LFR 


6 9 ATAN1M+M5 




STR 


F2 


ATAN1C 


CAD 


F2 




MPY 


Fl 




CAM 


6»ATAN1J 




CSM 


7 fi 8 




STR 


F3 




CAD 


69 1 e 




FLO 






MPY 


F3 




ADO 


6s Is 



SAVE F5. ATAN1 01 

SAVE F2. ATANI 02 

SAVE F3o ATAN1 03 

WANT ABSOLUTE VALUE OF X. ATAN1 04 

SAVE X. ATAN1 05 

SET POSITIVE SIGN FLAG- ATAN1 06 

SET MS FOR INTERVAL FLAG. ATAN1 0? 
FORM NEXT DIFFERENCE TO GET INTERVAL, ATANl 08 

INCREMENT INTERVAL FLAG. ATANI 09 

JUMP IF INTERVAL NOT YET REACHED. ATANI 10 
JUMP IF INTERVAL TO EXECUTION OF P0LY.ATAN1 11 

TEST FOR INTERVAL 6. ATANI 12 

JUMP IF INTERVAL 6. ATANI 13 

ENTER X. ATANI 14 

FORM X - TANIK«PI/12). ATANI 15 

STORE NUMERATOR X ~ TANIK»PI/12 J . ATANI 16 

ENTER TAN (K«P 1/121.. ATANI 17 

FORM THE DENOMINATOR ATANI IB 

I ♦ X « TAN(K«PI/12). ATANI 19 
TCtO*«X-TANCK«PI/12n/Ii*X*TAN(K»PI/121I ATANI 20 

SAVE F6. ATANI 21 

STORE K»PI/12 IN F6. ATANI 22 

SAVE TfK) IN F2. ATANI 23 

ENTER X, TfJO s OR 1/X. CALL IT Y. ATANI 24 

FQRM Y**2 C ATANI 25 

SET LOCATION OF FIRST COEFFICIENT. ATANI 26 

SET POLY ENDTEST COUNTER. ATANI 27 

SAVE Y»»2 IN F3. ATANI 28 

ENTER FIRST COEFFICIENT -A117I. ATANI 29 
POLY MEANS THE POLYNOMIAL EXPRESSION. ATANI 30 

FORM POLY » Y**2. ATANI 31 

FORM POLY ♦ NEXT COEFFICIENT. ATANI 32 



o 


hd 


CQ 


a 


g" 


S» 


CD 


J» 




OQ 


O 


d- 


p 


CD 


ct 


CD 


OR 


a o 


H- 


• ■ 


ni 




O 




* * 




P 






■P-OO^J 




o 


p- ro 




H> 


bd 


O 




VJ1 




-P~ 





CJF 


I* 




MPY 


F2 




JZM 


5, ATANID 




JNM 


5,ATAN1I 




ADO 


F6 


ATANiD 


JZM 


4,ATAN1E 




STN 


FO 




CAO 


FO 


ATAN1E 


JZM 


5,ATAN1F 




LFR 


6 S COMMON* I 


ATAN1F 


LFR 


5, COMMON 




LFR 


2,COMMON+2 




LFR 


3,C0MM0N*3 




JLH 


M3 


ATAN1G 


STN 


F2 




CNM 


4 




CAO 


F2 




TRA 


ATANiA 


ATANiH 


CAO 


i. 




DIV 


F2 




SFR 


6,C0MMGN+1 




CNM 


5 




LFR 


6,ATAN1N 




STR 


F2 




TRA 


ATAN1C 


ATANl I 


SUB 


F6 




AOM 


4,1 




TRA 


ATANID 




FIL 




ATANl J 


OCTQ 


6776,17664 




OCTQ 


2354*4162* 




OCTQ 


3434,7070, 




OCTQ 


6314,14631 




OCTQ 


2000s C( l 


ATAN1K 


OCTQ 


4154,17723 



POLY ENDTESTo 

PGLY=ACU»Y+AC3l#¥*»3*...+Af 17I*Y»*17 

JUMP IF INTERVAL 0„ 

JUMP IF INTERVAL 6. 

ARCTANIX) * POLY * JUPI/12. 

JUMP IF POSITIVE SIGN FLAG WAS SET. 

X WAS NEGATIVE , SO MAKE 

ARCTANfXI NEGATIVE. 

JUMP IF INTERVAL 0. 

RESTORE F6. 

RESTORE F5. 

RESTORE F2e 

RESTORE F3. 

EXIT ATAN1 SUBROUTINE,, 

SAVE ABSOLUTE X„ 

SET NEGATIVE SIGN FLAG. 

ENTER X - ABSOLUTE X. 

JUMP TO INTERVAL TEST. 

SET NUMERATOR* 

FORM Y = l/Xo 

SAVE F6. 

SET INTERVAL MODIFIER M5 NEGATIVC. 

STORE PI/2 IN F6. 

SAVE 1/X IN F2. 

JUMP TO EXECUTE POLY. 

-ARCTANCXJ * ARC TAN f 1/X) 

REVERSE SIGN SINCE -ARCTANCX) 

JUMP TO EXIT. 

THE FOLLOWING ARE THE TABLES USED. 
1 13050 9 1776, 15676,725,6430,4777 AU7J, AfiSJ 
4733,377,15056,10570,6100^11377 AI131, AfllJ. 
15622,3777,13333,6666,15556,11777 AS9I, AI71 
, 11463, 3377, 15252, 12525,5252,12600 A(51, A{3) 

AUK 
,1623,1577,2205,5730,430,2400 TABLE OF 



PI/2. 

L ZERO. 



ATAN1 33 
ATANl 34 
ATAN1 35 
ATANl 36 
ATANl 37 
ATANl 38 
ATANl 39 
ATANl 40 
ATANl 41 
ATANl 42 
ATANl 43 
ATANl 44 
ATANl 41 
ATANl 46 
ATANl 47 
ATANl 48 
ATANl 49 
ATANl 50 
ATANl 51 
ATANl 52 
ATANl 53 
ATANl 54 
ATANl 55 
ATANl 56 
ATANl 57 
ATANl 58 
ATANl 59 
ATANl 60 
ATANl 61 
ATANl 62 
ATANl 63 
ATANl 64 
ATANl 65 
ATANl 66 
ATANl 67 



o 


*T) 


CQ U 


S3* 


!» 


© P3 


p 


OS 


O d- 





© 


d- © 


09 


• • 


H- .. 


© 




O 


■• 




ts 




\J1 


00"<l 




o 


4=- ro 




Hj 


l o 




vn 


H ON 

1 ■£" 
> 

H 





OCTQ 


2646 1 




OCTQ 


216 i s 




OCTQ 


mi. 


ITANIL 


OCTQ 


2iii» 




OCTQ 


2000, 




OCTQ 


7355, 


CTAN1M 


OCTQ 


2060* 




OCTQ 


6220, 




OCTQ 


2474* 


STAN IN 


OCTQ 


3110* 



5510,6660,5600,4223,505,16475,11600 DIFFERENCES 
12334,6504,10001,2456*7456,2032,12202 FOR 
17777,17777,17677 THE INTERVAL TEST. 
10242,17236,14600,4474,15164,5440,6400 TABLE 
,,1,3355,11727,4130,4601 OF 
11727,4130,4601 TAN«K»PI/12S o 

5221,14055,7200,4140,12443,10132,16400 TABLE 
17665,4210, 5600, 2060, 5221, 14055*7201 OF 
6466,3070,15001 K«f>I/I2» 
7732,12104,2601 PI/2c 



ATAN1 68 
ATAN1 69 
ATAN1 70 
ATAN1 71 
ATANt 72 
ATAN1 73 
ATAN1 74 
ATAN1 75 
ATAN1 76 
AT AN I 77 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 

Bl-SINl-OO-UI-AL 
B1-C0S1-OO-UI-AL 



NAME: Sine-Cosine 

PURPOSE : 

OTHER SUBROUTINES USED: None 
TEMPORARY STORAGE: 



x x 

To compute sin — or cos — with x in the accumulator. 



NUMBER OF WORDS: 
FAST REGISTERS CHANGED: 
EXECUTION TIME: 
EXIT: 

USE: 

METHOD: 



One location at COMMON, to be defined by the 
programmer and F2. 

13 words 

F2 and the calling sequence uses M3, hence Fk. 

65 usee (November, 1963) 

X X 

Normal to left hand first word with sin — or cos — 
in accumulator. 

Normal, i.e., CALL SIN1, 
CALL C0S1 

Chebyshev Polynomials 

Entrance at "SINl" places x - l/2 in A and computes 
cos it(x - l/2) = sin itx. x(mod 2) is formed at 
"C0S1" and then x = 1/2 - |x| . The identity 
sin(n/2 - I itx I ) = cos flx is used at this point „ 

Sin jtx is now computed using the Chebyshev polynomial 
approximation of degree 13 to the Taylor series 
expansion of sin jix, -l/2 < x < l/2. The polynomial 



V re 

sin x = L Ox 

k=0 * 



2K+1 



Programmed by: Robert Lange 
Revised by: Roberta White 
Approved by: a 
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METHOD (Continued) 



is evaluated by the standard technique. The coefficients 
were calculated on ILLIAC II, starting with 



sin y ~ y - ■>— + ... 



y 



19 



19! 



REFERENCE : 



Hildebrand, F. B. Introduction to Numerical 
Analysis , McGraw-Hill, New York (1956). 
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CO 
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P5 


CD SB 


p 


OP 


O c+ 


B 


CD 


d- CD 


015 


• • 


H- •• 


fD 




O 


.. 




P 




UJ 


CO -J 







V ro 




Hj 


1 .P 




OO 


1 -fr- 
CO 
H 

3 





FLO 














DECQ 


-6, COS 1+5. 




MODIFIER CONSTANTS 


SINl 


SUB 


10*3,20*8 




COMPUTE 


SINE 


cosi 


STF 
SFR 


0»3r 

6, COMMON 




SAVE F6 








TOR 


ItCOSi+l 




CLEAR OV 






DAV 


10,3,2048 




1X1 - 1/2 * 


A 




STN 


F2 




X * 1/2 


- 1X1 




MPY 


FO 












LFR 


6,CQSl-l 




SET M8 AND 


M9, I 




STR 


FO 




STORE X»«2 


IN FO 




CAO 


9,1, 




C7 - A 








MPY 


FO 




*X*#2 








ADD 


9,1. 




+ C-I 








CJF 


8 A 1 9 




IS I =0 








LFR 


6, COMMON 




RESTORE 


F6 






npy 


F2 




*X 








JLH 


3» * 




- EXIT 








OCTQ 


3517.6174, 


4521,15173 


C7 






OCTQ 


14165,15472,1071] 


.,10575 


C6 






OCTQ 


2501,15532 


,14354, 


1577 


CS 






OCTQ 


13151,6467 


,17623, 


6400 


C4 






OCTQ 


5063,5706, 


6336,13601 


C3 






OCTQ 


15325,1030 


,14735, 


4602 


C2 






OCTQ 


6220,17665 


,4210,14201 


Ci 




COMMON 


BSS 


1 











SEN 10000 
SINl 0001 
SIN 10002 
SIN100 3 
SIN10004 
SIN 10005 
SIN I 0006 
SIN 10007 
SIN 10008 
SIN10009 
SIN10010 
SIN 100 11 
SIN 10012 
SIN10013 
SIN10014 
SIN10015 
SIN10016 
S1N10017 
SIN 10018 
SIN 1 00 19 
SIN 10020 
SINl 002 I 
SIN10022 
SIN10023 
SIN I 0024 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
B3-COSH1-00-UI-AL 



NAME: 

OTHER SUBROUTINES USED: 

TEMPORARY STORAGE ;< 

NUMBER OF WORDS: 

EXECUTION TIME: 

USE: 



MATHEMATICAL METHOD: 
ACCURACY: 



Hyperbolic cosine 

EXP1 

None 

5 words 

l6l. k usee (average < x < 2) 

Standard CALL COSH1 (x in the accumulator) and normal 
exit (cosh x in the accumulator). Fast registers are 
saved. OV is cleared, 

cosh x = I (e x + l/e x ) where e x is computed by EXP1. 

P 
Using the identity cosh(2x) = 2 cosh x - 1, the 

-12 
maximum relative error is 7.9 X 10 and the average 

-12 
error is 1.0 x 10 



Programmed by: John Kelly 
Approved by: 
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Hj 


1 VO 
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1 -p- 






O 






O 






en 






P 



HI 


SFR 


4,C0SH1A 




CALL 


EXP1 




STR 


FO 




VID 


1. 




ADD 


FO 




MPY 


10,3,2048 




LFR 


4,C0SH1A 




JLH 


M3 


H1A 


BSS 


1 



SAVE F4. COSHi 01 

COSHltX) IS COSHI 02 

COMPUTED COSHI 03 

FROM THE COSHI 04 

EXP1 SUBROUTINE. COSHI 05 
COSHlfX) = (1/2) * CE**X «■ E»(-X))'. COSHI 06 

RESTORE F4. COSHI 07 

EXIT COSHI SUBROUTINE. COSHI 08 

COSHI TEMP STORAGE. COSHI 09 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBAHA, ILLINOIS 

ILLIAG II LIBRARY PROGRAM 
B3-EXP1-00-UI-AL 



NAME: 

OTHER SUBROUTINES USED: 

TEMPORARY STORAGE: 

MJMBER OF WORDS: 

EXECUTION TIME: 

USE: 



MATHEMATICAL METHOD: 



Exponential 

None 

None 

kO words 

127.5 M-sec 

Standard, CALL EXP1 (X in the accumulator) and normal 
exit (e in the accumulator). Fast registers are 
saved. OV is cleared hut will he set if x > 127 log 2 
[*» 88*. ) 



= K where K = 2 ' ,w = x log-je. 



w 



= l6a + h + f 



where < h < 15 (h integer), < f < 1. 



So 



K 



■K*. 



a is placed in the exponent 



register and K comes from a tahle look-up. It = 
where c = &.n K. 



cf 



e^ = 2(f + 



fM' 



where 



w >i 12 11)- 16 

F(z) = 2 - z .+ -7 z - -^^ z + t-pt-^ z + 



3S0 



15120 



So 



cf J 1 
e = 2 - + 



c J2. c J „k 



c " f + 6 f "360 



f + 



15120 



There is a correct 8-hit exponent in the accumulator. This may he too large 
to store „ 



Programmed hy: No T„ Hamilton 
Approved hys^ 
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Change: 





ACCURACY: 



Using the identity e = 1/e , 

-13 
error is 3-9 X 10 „ 



the maximum relative 



Date: 


7/29/64 


Section: 


8A-B3-EXP1 


Page: 
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Change : 
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P 


CO 


s? 


s> 


TO 


o 


d- 


& 


CD 


d- 


fl> 


0> 




O 




o o 




B 






<_aJ 


C»^J 




o 


4=-ro 




Hj 


w 


VO 




■p-Q) 


CT\ 






1 


■p- 






n 








hj 








H 





EXP 1 TOR 


2, EXPI 


CLEAR OV. 


EXPI 


01 


MPY 


EXP1F 


FORM W * X » LOG2E. E*»X = K**H. 


EXPI 


02 


SFR 


4,£XP1E 


SAVE F4 


EXPI 


03 


SFR 


5,EXP1E+1 


AND F5. 


EXPI 


04 


SAM 


F5 


W = 16»A + 8 + F. 


EXPi 


05 


LIN 


8 


SHIFT AND 


EXPI 


06 


SEQ 


FO 


STORE A IN MO 


EXPI 


07 


SAM 


F4 


AND B IN Ml. 


EXPi 


08 


TNOR 


EXPIC 


JUMP IF W NOT TOO EXTREME. 


EXPI 


09 


JNM 


4, EXPiB 


JUMP TO SET UF IF X NEGATIVE. 


EXPI 


10 


EXP1A OIV 


15,3, 


SET OV. 


EXPI 


11 


EXP 18 CAD 


15,3, 


CLEAR ACC OR SET UF. 


EXPI 


12 


LFR 


4,EXP1E 


RESTORE F4 


EXPI 


13 


LFR 


5,EXP1E+1 


AND F5. 


EXPI 


14 


JLH 


M3 


EXIT EXPi SUBROUTINE. 


EXPI 


15 


EXPIC AND 


EXP1G 


MASK W TO LEAVE FRACTIONAL 


EXPI 


16 


STR 


F5 


PART F AND SAVE IN F5. 


EXPI 


17 


MPY 


FO 


FORM F**2. 


EXPI 


18 


CAM 


2.EXPIH 


SET LOCATION OF POLY COEFFICIENTS. 


EXPI 


19 


STR 


FO 


SAVE F**2. 


EXPI 


20 


MPY 


2,1, 


FORM THE POLY 


EXPI 


21 


ADO 


2tl, 


EXPANSION FOR 


EXPI 


22 


MPY 


FO 


C 1/2 J * K**F, K * 2**11/8}. 


EXPI 


23 


CRM 


1,9 


RIGHT JUSTIFY B. 


EXPI 


24 


ADO 


2,1, 


FORM 


EXPI 


25 


MPY 


FO 


POLY. 


EXPI 


26 


ANM 


1,15 


MASK Ml TO LEAVE B. 


EXPI 


27 


ADO 


M2 


CONTINUE 


EXPI 


28 


SU8 


F5 


FORMING 


EXPI 


29 


VID 


F5 


POLY. 


EXPI 


30 


ANN 


,8064 


TEST FOR OV. LEFT 6 BITS 


EXPI 


31 


CAM 


2 


MUST BE TO PASS. 


EXPi 


32 


ORM 


,3,127 


TEST FOR UF. LEFT 6 BITS 


EXPI 


33 


CNM 


3 


MUST BE 1 TO PASS. 


EXPi 


34 


JZM 


2,EXP1D 


JUMP IF NO OV. 


EXPI 


35 



o »rJ en u 
tr pj ft sb 

pn n ct 



CD 



a> 



-£'00 -J 

o V ro 



H 



EXP ID 



EXP IE 
EXP IF 
EXP1G 
EXP1H 



EXP II 



JZM 3,EXP10 

JPM ,EXP1A 

TRA EXP18 

ADD 10,3,2048 

CAE MO 

MPY M1+EXP1I 

TRA 1.EXPI8 

8SS 2 

OCTQ 05612,12166,05127, 

OCTQ 00000,0077?, 17777,17600 

OCTQ 00000,00000,00026,03001 

OCTQ 17777,17760,15377,06401 

OCTQ 00016,14460,03775,04201 

OCTQ 02705,05073,02453,10203 

OCTQ 04000,00000,00000,00001 

OCTQ 04271,05603,14372,12001 

OCTQ 04603,07740,12143,07001 

OCTQ 05137,16655,05154,05001 

OCTQ 05520,04746,06376,07401 

OCTQ 06126,07124,02125,04001 

OCTQ 06564,04771,11265,12401 

OCTQ 07254,00615,14767,04401 

OCTQ 02000,00000,00000,00002 

OCTQ 02134,12701,16175,05002 

OCTQ 02301,13760,05061,13402 

OCTQ 02457,17326,12466,02402 

OCTQ 02650,02363,03177,03602 

OCTQ 03053,03452,01052,12002 

OCTQ 03272,02374,14532,15202 

OCTQ 03526,00306,16373,12202 



JUMP IF NO UF« 

X POSITIVE SO SET QV. 

X NEGATIVE SO SET UF* 

POLY EXPANSION COMPLETED. 

PUT A IN EXPONENT REGISTER. 

MPY BY 2 * K*«8. 

JUMP TO EXIT. 

EXP1 TEMP STORAGE. 

00202 L0G2E. 

MASKo 

POLY 

EXPANSION 

COEFFICIENTS. 



TABLE OF 

2 * 2*«IB/8) 

FOR .LE. B 



.LE. 15. 



EXP1 


36 


EXP1 


37 


EXPi 


38 


EXP1 


39 


EXPI 


4Q 


EXPI 


41 


EXPI 


42 


EXPI 


43 


EXPI 


44 


EXPi 


45 


EXPI 


46 


EXPI 


47 


EXPI 


48 


EXPI 


49 


EXPI 


50 


EXPI 


51 


EXPI 


52 


EXPi 


53 


EXPI 


54 


EXPi 


55 


EXPI 


56 


EXPI 


57 


EXPI 


58 


EXPI 


59 


EXPi 


60 


EXPI 


61 


EXPI 


62 


EXPI 


63 


EXPI 


64 


EXPI 


65 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 

B3-LGT1-00-UI-AL 
B3-LGE1-00-UI-AL 
B3-LGB1-00-UI-AL 



NAME : Logarithm 

TEMPORARY STORAGE: COMMON, F2 
OTHER SUBROUTINES USED: None 



NUMBER OF WORDS: 

EXECUTION TIME: 
ENTRY: 



EXIT: 



METHOD: 



53 

170 microseconds 

Standard by 

CALL LGT1 for log 1Q x 

CALL LGE1 for log x 

CALL LGB1 for log x 

The number x, of which the logarithm is desired, should 
be in the accumulator; on exit, the appropriate logarithm 
replaces this number in the accumulator. If x < 0, OV is 
set by the routine, and x is left in the accumulator; 
therefore OV should be cleared before entering. 

Standard by JLH M3 with the appropriate log x in the 
accumulator. 

To find the logarithm x, the routine normalizes x as 
x = t..k j l/k < f < 1. An appropriate value of 



16 



k\ + ± 



(k .= 0, 1, ..., 11) 



is chosen from a stored table of values so that 



Programmed by: Marvin Gaer 



Date; 
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Change : 





METHOD (continued); 



f 1 = f 



16 



■k i + k-l 



is such that „ < f < -pr. A number 

y — y 



,11 



a = 



11 ' 
f + 2 



(f 11 = f 1 - 1) 



is found, 



Ty < a < — , and following the series is 



computed for log f 



3 o„5 



log^f 1 ) = log e (l + f 11 ) = 108 e (ff|) - 2a + S* + £f- + ... + 



2a 



13 



13 



Finally log x is found from: 



log x = log (f 1 ) + n log k - log (—i2 ) 



*f ♦* 



where log ( — = ) is found from a stored table. 



\-l 



log 10 x = (log e 10)" (log e x); loggX = (log e 2)" J -(log e x). 



RANGE: 
ACCURACY: 



Finds the logarithm of all x > 0„ OV set if x < 0. 

Exact to 12 decimal places, unless characteristic is 
zero in which case good to 11 decimal places. Small 
round-off error in the 13th or 12th decimal place as the 
case may be. 



Date: 


11/26/63 


Section: 


8.4-B3-LGT1 


Page: 


2 of 5 


Change: 





9 




en 
o 


8- 


p 


CD 


c+ 


fD 


cw 


on 


H- 


oo 


CD 




O 




D 











OJ 


00 H 








M 




o 


V 


^~*. 




Hj 


i 


to 






W 


o> 




VJ1 U) 


^"^ 






i 


On 






t" 1 OJ 






Q 








H3 








H 





FiL 
LGT1 SFR 


4»C0MNGN 


CAM 


1,1 


TRA 


3,LGT1*3 


LGB i SFR 


4, COMMON 


CAN 


I 


TRA 


3, LGT 1*3 


LGEl SFR 


4, COMMON 


CSM 


i,l 


TIN 


3,L6Tl+17 


STR 


F2 


SEX 


3 


CAE 





AOE 


2 


SI A 





SBE 


2 


MP¥ 


L6T1+15+M0 


SUB 


1. 


STR 


F2 


ADO 


2« 


VI 


F2 


STR 


F2 


MPV 


F2 


STR 


F3 


CAM 


2,-6 


CAD 


LGT 1*43 


FIL 




MPY 


F3 


ADO 


LGT1+50+N2 


C4F 


2,0, 


HPY 


F2 


SUB 


LGTI*27*M0 


STR 


F2 


CAD 


LGT1+50 


MPY 


H3. 



LOG 10 X 

Ml- I MEANS LOG 10 X 

LOG 2 X 

M0=0 MEANS LOG 2 X 



MI--1 MEANS LOG E X 

X LT EQUAL TO MEANS ERROR 

NORMALIZE X,X»F-4N 



16-F FOR 
TABLE LOOKUP 
RESTORE F 
.16/4o5*K=F 
F 11 = F 1 - 1 
STORE F 11 

A= F il / C2+F 111 

STORE A 

XQ=A2 

STORE A2 IN F3 

A6 

XA 2 

+AI, I=5,o.«0 

LOG 

.A=*LQGU*F iIJ=LQG F 1 

-LOG 16 / 4.»5+N=LN F 

STORE LN F 

LN 4 

N.LN4 



LGTtOOOO 
LGT10001 
LGT10002 
LGT 10003 
LGT 10004 
LGT 10005 
LGT 10006 
LGT 1 0007 
LGT10008 
LGT10009 
LGT t 0010 
LGTIOOil 
LGT10012 
L6T10013 
LGT 10014 
LGT10015 
LGT10016 
LGT 1001 7 
LGT 10018 
LGT 10019 
LGT 10020 
LGT 10021 
LGT 10022 
LGT 10023 
LGT 10024 
LGT 10025 
LGT 10026 
LGT 10027 
LGT10028 
LGT 10029 
LGT10O3G 
LGT 10031 
LGT 10032 
LGT 10033 
LGT 10034 
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ADD 

JZM 

JUM 

MP¥ 

LFR 

JLH 

Mf»¥ 

TRA 

OIV 

TRA 

FIL 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 

OCTQ 



F2 

1,3, LGT 1+16 

1,LGT1+16 

LGT 1+51 

4, COMMON 

M3 

LGT 1*52 

L6T1+16 

15*3, 

LGTi+16 



+LW F* LN F*4N=LNX 

LOG E 

.1/ LOG E 10 

RESTORE F4 

ol / LN 2 = LOG 2 X 



07070, 
05642* 
04730, 
04210, 
03607, 
03274, 
03030, 
02620, 
02436, 
02275, 
02151, 
02041, 
02422, 
02105, 
07151, 
06037, 
05036, 
04127, 
03275, 
02510, 
07714, 
05337, 
03114, 
04040, 



16161,14343 
16427,04272 
11661*03542 
10421,01042 
10360,17036 
12065,16241 
06060,14141 
13102,14413 
13412,03656 
12045,16641 
16713,00432 
00410,04102 
17224,04027 
07400,07163 
11744,16071 
07541,05534 
14777,02762 
03556,02640 
04512,11110 
12560,03470 
10706,14547 
12006,13250 
15362,16531 
12730,11716 



,11401 
,02601 
,07001 
9 01601 
,01201 
,12601 
,07601 
,02001 
,01201 
,02601 
,07601 
,01001 
•11201 
,01601 
,16000 
,00000 
,04400 
, 12600 
,14600 
,12200 
,06177 
*07777 
,05577 
,10576 



SCALE* 16 / 4.5+R 



LOG 16 / 4-5+R 



LGT 10035 
LST 10036 
LGT 10037 
LGT1Q038 
LGT 10039 
LGT 10040 
LGT 10041 
LGT 10042 
LGT 10043 
LGT 10044 
LGT 10045 
LGT 10046 
LGT 10047 
LGT 10048 
LGT 10049 
LGT 10050 
LGT10051 
LGT10052 
LGT 10053 
LGT1Q054 
LGT10055 
LGT 10056 
LGT 10057 
LGT 10058 
LGT 10059 
LGT 10060 
LGT 10061 
LGT10062 
LGT 10063 
LGT 10064 
LGT 10065 
LGT 10066 
LGT 10067 
LGT 10068 
LGT 10069 
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On 
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H 





OCTQ 


04730,11661,03542,1037? 


A6 


OCTQ 


05642, 16427,04272,03317 


A5 


OCTQ 


07070, 16161, 14343* 10577 


A4 


OCTQ 


02222,04444,11111,02200 


A3 


OCTQ 


03146, 06314, 14631 ,11400 


A2 


OCTQ 


05252,12525,05252,12600 


Al 


OCTQ 


04000,00000,00000,00001 


AO 


OCTQ 


02613, 11027,17372,03601 


LN 4 


OCTQ 


03 362 , 1573 , 1 2446 ,1 6400 


1 / EN 10 


OCTQ 


02705,05073,02453,10201 


WILL BE 1 



/ EH 2 



LST 10070 
LGT10071 
LGT 10072 
LST 10073 
LST 10074 
LST 10075 
LST 10076 
LST 10077 
LGT 10078 
LGT 10079 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
B3-SINH1-00-UI-AL 



NAME: 

OTHER SUBROUTINES USED: 
TEMPORARY STORAGE: 
NUMBER OF WORDS: 
EXECUTION TIME: 

USE: 



MATHEMATICAL METHOD: 



Hyperbolic sine 

EXP1 

None 

21 words 

89.3 M-sec for |x| < 1, 178.3 M-sec average for 
1 < |x| < 10. 

Standard, CALL SINH1 (x in the accumulator) and normal 
exit (sinh x in the accumulator). Fast registers are 
saved. OV is cleared if EXP1 is called. 

For |x| < 1, a Chebyshev polynomial organized by powers 
of x is used. The coefficients are given in the 
reference below. For Jxj > 1, 



sinh x = — (e - l/e ) 



ACCURACY: 



REFERENCE ; 



where e is computed by EXP1. 

2 2 2 

Using the identity sinh (2x) = 4sinh x(l + sinh x), 

-12 
the maximum relative error is 2.2 X 10 and the 

-12 
average error is . 30 X 10 

Clenshaw, C. W., Chebyshev Series for Mathematical 
Functions , Vol. 5 of Mathematical Tables , National 
Physical Laboratory, p. 2k. 



Programmed by: 
Approved by: 



John Kelly 



Date : 
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Section: 


8.1+-B3-SINH1 


Page : 
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Change : 





o 


hj 


CO O 


E3- 


pa 


n> pa 


pa 


OQ 


O c+ 


2 


(1) 


d" (5 


OS 


• - 


H- •• 


n> 




O 


•• 




n 




ro 


03 -J 




o 


"-F- ro 




Hj 


1 M3 




OO U) 0\ 






1 -p- 






cn 
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SINHl SFR 4,SINH1C 

STR F4 

DAV 

SUB 1. 

TP SINH18 

CAO F4 

MPY Fl 

SFR 5,SINH1C+1 

CAM 4,SINH1D 

STR FO 

MPY 4,1, 

CSM 5,5 

FLD 

ADO 4,1, 

MPY FO 

CJF 5 

ADD M4 

MPY F4 

LFR 5,SINH1C+1 

SINH1A LFR 4,SINH1C 

jlh m 

SINH18 CAD F4 

CALL EXP1 

STR FO 

VID -1- 

ADD FO 

MPY 10,3,2048 

TRA SINH1A 

SINH1C 8SS 2 

SINH1D OCTQ 05474,00102, 

OCTQ 03271,04232, 

OCTQ 05616,17127, 



SAVE 

SAVE 

FORM 

A8S. 

JUMP 

FORM 

X»*2 

SAVE 

SET 

Y = 

FORM 

SET 



F4. 

X. 

(X) - 1. 
IF X .L. -1 OR X .G. 1. 



F5. 
LOCATION OF POLYNOMIAL CONSTANTS, 
X**2. 

A13 * Y. 
LOOP COUNTER. 



,+A13*X**13. 



SINHltX) IS 

COMPUTED FROM 

A CHEBYSHEV 

POLYNOMIAL EXPANSION, 

SINH1CX) » A1*X+A3*X**3+, 

RESTORE F5. 

RESTORE F4. 

EXIT SINH1 SUBROUTINE. 

X- 

SINH1U3 IS 

COMPUTED 

FROM THE 

EXPi SUBROUTINE. 

SINHHX) = (1/2) * <E**X - E**{-X)l. 

JUMP TO EXIT. 

SINHl TEMP STORAGE. 
04236,16560 A13. 
12511,15164 All. 
11460,16767 A9. 



SINH1 
SINH1 
SINH1 
SINH1 
SINHl 
SINH1 
SINH1 
SINH1 
SINHl 
SINH1 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
SINHl 
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02 
03 
04 
05 
06 
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10 
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OCTQ 06400,15001,07005,10372 A7. 

OCTQ 04210,10421,01047,02775 A5. 

OCTQ 05252,12525,05252,12377 A3. 

OCTQ 02000,00000,00000,00001 Al« 



SINH1 33 
SINH1 34 
SINH1 35 
SINH1 36 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
ILLIAG II LIBRARY PROGRAM 
B4-SQR1-00-UI-AL 



NAME: 
PURPOSE: 



OTHER SUBROUTINES USED: 
TEMPORARY STORAGE USED: 
NUMBER OF WORDS: 
DURATION: 
ACCURACY: 

RANGE USE: 

ENTRY: 
EXIT: 

METHOD: 



Square Root 

Replaces the rounded contents of the accumulator 
with its square root if the accumulator is 
positive. Does nothing if negative. This routine 
always clears overflow. 

None 

F2 and COMMON 

9 

150 microseconds 

Maximum error is not more than 1.5 in the least 
significant place (hit kk) . 

Accumulator exponent can "be in range -128 to +127 

on entry. 

Standard by CALL SQRT with X in the accumulator. 

Standard with vX in the accumulator if X > or 
with X in the accumulator if X < 0. 

Four iterations of the Newton "formula 
X N+1 = (X N + X/X^/2 are used. 

The first approximation X Q is formed from the 
normalized form of X = Yk as follows: 



x Q - (y + Dk^- 1 ^ 2 . 

X Q = 1/2 (Y + 1)U E/2 . 



If E odd, 

If E even, 

The iteration is done with a zero exponent. 



Programmed by:^£^ *-^> , 

Approved by: 



Ggk/ 



Date: 


IO/10/63 


Section: 


8 . J+-B+-sqRi 


Page: 


1 of 2 


Change : 
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SQUARE ROOT FIRST CAR 


TZN 


WSQR1+8 


TEST FOR ZERO 


SFR 


4, COMMON 


SAVE F4 


STR 


S 3 S 


ROUND 


SEX 


3 


STORE EXPONENT 


CAE 





CLEAR EXPONENT 


STR 


2.3* 




ADD 


2 9 3» 


DOUBLE 


ADO 


2. 


ADD I 


S8E 


1 


DIVIDE BY FOUR 


CSM 


2*4 


SET COUNT 


STR 


s 3s 


STORE XN 


VID 


2f 3s 


X/XN 


ASC 


S 3, 




CAT 


0r3» 


DOUBLE 


S6E 


1 


DIVIDE BY FOUR 


CJU 


2.SQR1+4 


LOOP FOUR TIMES 


CRM 


3,1 


HALVE EXPONENT 


JPM 


3,2, SQR 1+7 


TEST FOR EVEN EXPONENT 


STR 


0,3, 


DOUBLE 


CAT 


0*3, 




AOE 


3>» 


SET EXPONENT 


LFR 


4, COMMON 


RESTORE F4 


TOR 


3,SQRl+8 


RESET OVERFLOW 


JLH 


3,, 


EXIT 



SQR I 0001 
SQR 10002 
SQR 40003 
SQR 10004 
SQR 10005 
SQR 100 06 
SQR10007 
SQR 10008 
SQR1O0G9 
SQR 100 10 
SQRlOOtl 
SQR 10012 
SQR10013 
SQR 10014 
SQR1001S 
SQR 10016 
SQR 1001? 
SQR 10018 
SQR 10019 
SQR 10020 
SQR 10021 
SQR 10022 
SQR 1002 3 
SQR 10024 



UNIVERSITY OF ILLINOIS 

GRADUATE COLLEGE 

DEPARTMENT OF COMPUTER SCIENCE 

ILLIACjJJ Library Routine 

J5-CCP4SC-40-UI-AL 

August 19, 1965 



Entry Name 
CCPi+SC 



IDENTIFICATION 



CalComp Plotter Scale for F0RTRAN and NICAP. 



PURPOSE CCP4SC (l) finds the minimum value in a specified 

subarray of a given one -dimensional array, and (2) computes a scaling factor for 
the array. It places these results into a two-element array which can be used 
with CCP6LN to graph the array and/or with CCP5AX to construct an axis. 



RESTRICTIONS 



None. 



REGISTERS AND. USER 'S MEMORY CHANGED 
accumulator. 



M3 by the calling sequence, F0-F3, and 



TEMPORARY STORAGE 



None. 



LENGTH OF ROUTINE 



53 words excluding other subroutines used* 



OTHER SUBROUTINES USED 



J5-DXDY-00-UI-AL 



EXECUTION TIME 



.1 seconds for U,000 numbers. 



ENTRY 



The NICAP calling sequence is 



CALL CCP4SC 

DECQ X,S,N,K 

DECQ T } , , 
where X, S, N, K, and T are the addresses of the parameters defined below and 
not the parameters themselves . 
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ILLIAC 


II MANUAL 



UNIVERSITY OF ILLINOIS 
GRADUATE COLLEGE 
DEPARTMENT OF COMPUTER SCIENCE Entry Name 

ILLIAC II LIBRARY ROUTINE CCP6LN 

J5-CCP6LN-I|.1-UI-AL 

August 17, 1965 

IDENTIFICATION CalComp Line for FORTRAN and NICAP. 

PURPOSE CCP6LN plots and connects on the CalComp Plotter a 

specified subset of the set of points 

,X(l)-XMIN Y(l)-YMINv _ , _ „ 

^ DX — — ' DY '"' 

given the arrays X and 1, whose elements are X(l), X(2), . . . , X(N) and Y(l), 

1(2), . .., Y(N), respectively, and given XMIN, YMIN, DX and DY.. 

RESTRICTIONS (ymax-ymin)/DY < 29 where ymax is the maximum and ymin 

is the minimum of Y(l), Y(|K|+l), Y(2|K|+l), ..., Y(r|x|+l) where r is the largest 

integer such that r|K|+l < N. 

REGISTERS AND USER ' S MEMORY CHANGED M3 by the calling sequence, accumulator 
and F0-F3- 

TEMPORARY STORAGE None. 

LENGTH OF ROUTINE About 8l words excluding other subroutines used. 

OTHER SUBROUTINES USED J5-CCP1PP-00-UI-AL 

EXECUTION TIME 3.68 'seconds for 2, 000 data points . 

ENTRY The NICAP calling sequence is 

CALL CCP6SC 
DECQ X,Y,N,K 
DECQ TX,TY,, 

where X, Y, N, K, TX, and TY are addresses iof the parameters defined below and 
not the paramters themselves . 
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ILLIAC |I MANUAL 



TITLE: 

LENGTH: 

TEMPORARY STORAGE: 

OTHER SUBROUTINES USED; 

TIMING: 

PURPOSE: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
Pl-GQUl-OO-UI-AL 

Gauss Quadrature 

194 words 

18 words at a location specified by the calling program 
(see Method of Use). 

A subroutine to evaluate f(x) supplied by calling 
program (see Method of Use). 

Ranges from 200 usee for n = 2 to 875 usee for n = 15. 
(50n + 100) usee is a good estimate of the timing. 

To evaluate numerically 



/ f(x)dx 



METHOD OF USE: 



where p,q are constants supplied by the calling program, 
and f is a real- valued function which is evaluated by a 
subroutine also supplied by the calling program. 

The calling program must supply five items as follows : 

1. p: The lower limit of integration must be in F2 
upon entry to the subroutine. 

2. q: The upper limit of integration must be in the 
accumulator upon entry to the subroutine. 

3. n: The number of points at which the function is 
to be evaluated must be in the first quarter-word 
of the word following the CALL instruction; n must 
be an integer in the range 2, 3> •••> l6. 
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METHOD OF USE (cont'd): k. 



f : Auxiliary subroutine to evaluate f(x) at arguments 
supplied by this subroutine. Upon calling the 
auxiliary subroutine, the argument x is placed in 
the accumulator, and f(x) is to be returned to the 
accumulator. The auxiliary subroutine must begin in 
the left-most quarter-word. The address of this 
location is to be placed in the second quarter-word 
of the word following the CALL instruction. The 
link to the auxiliary subroutine is M3. The control 
word following CALL has the form: 



address of f 



not used 



not used 



EXIT: 



5. A block of 18 consecutive words for temporary 

storage. The address of the first word of the block 
must be put in M2 before entering the subroutine. 

Upon exit from this subroutine, the approximation to the 
integral of the function is returned to the accumulator. 
[The accumulator will contain 



i=l 



EXAMPLE: 



Control is returned to the word following the one which 
contains the parameters. 

A portion of program which might be used to call this 
subroutine is as follows: 



Control 

returned 

here 



CAM 2,^00 

CAD 6. 
STR F2 
CAD 9. 
CALL GQU1 
DECQ 10,250,. 



400 is the location of block 
for temporary storage 

p = 6 (lower limit of integration) 
q = 9 (upper limit of integration) 



n = 10, the auxiliary subroutine 
f is located beginning at 250 
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MATHEMATICAL DESCRIPTION: The Gaussian quadrature formula for evaluating an 

integral with arbitrary limits (p,q) is given by 



f* f(x)d(x) = 3~Z Z a^x^ + ip) + R n (f) 



P 



where x. is the ith root of P (x) and 
1 n N 



i r lp n < x > „ 

a. = wt ' v.." ' \ / r. dx 



XX s 1 



i P'ixj J x - x. 
" -1 



i n-i+1 7 i n-i+1 



If f .(x) is an arbitrary polynomial of degree at 

most 2n - 1, then R (f- , ) = 0. 

n 2n-l 

If f(x) has a continuous derivative of order 2n in the 

interval (p, q),, then 



R = «■ where | is a point in the interval (p, q) 

n (2n):r 



and 



(. C )(2 .Jl/2 
x 2n n' v n+1 



K is 777^ 

11 (q - Pf +1/2 

R n is the error term.. The zeros of the Legendre 
polynomials P (x), n = 2, 3> ••*, ^$ f and the corres- 
ponding weight coefficients a. were taken from the 
16 place tables from Tables of Functions and of Zeros 
of Functions , Applied Mathematics Series 37> prepared 
by the U.S. Department of Commerce, National Bureau 
of Standards. 
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GQUI 
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F3 
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ATM 


2,1, 


SFR 


4 


ATN 


2,1, 


SFR 


5 


ATN 


2.1. 


SFR 


6 


ATN 


2, l s 


SFR 


7 


LFR 


5,M3 


CAD 


F3 


SUB 


F2 


MPY 


10*3,2048 


STR 


M2-6 


ADD 


F2 


STR 


M2-5 


CRM 


4a 


JNM 


4, GQUI +38 


CRM 


4*12 


CSB 


M4. 


MPY 


10,3,2048 


S!A 


8 


CAM 


1 


CAD 


M4. 


SUB 


2. 


TZ 


GQUl+Ll 


CJU 


l,2,GQUl+9 


CAD 


Ml. 


MPY 


Ml+L. 


ADD 


GQU1+59. 


SI A 





ADO 


Ml+64. 


SIA 


12 



PICK UP PARAMETERS N AND F 

tQ-P»/2 
CQ+PJ/2 
JUMP IF N IS ODD 



LOCATE XI IN TABLE 



LOCATE AI IN TABLE 



GQUIOOOO 
GQUI 0001 
GQUI0002 
GQUI 0003 
GQU10004 
GQU10005 
GQUI 0006 
GQUI 0007 
GQUI 0008 
GQUI 0009 
GQU 10010 
GQU 10011 
GQU 100 12 
GQU 10013 
GQU10014 
GQU10015 
GQU 100 16 
GQU10017 
GQU10018 
GQU10019 
GQU 10020 
GQU 10021 
GQU 10022 
GQU I 0023 
GQU 10024 
6QU10025 
GQU 10026 
GQU 10027 
GQU 10028 
GQU 10029 
GQU 10030 
GQU 10031 
GQU 10032 
GQU 10033 
GQU 10034 
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CAM 
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CAM 


6,M2-14 


CAO 
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MPY 


M2-6 


ADO 


N2-5 
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4,M2-18 
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FIL 




LFR 
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M6 
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M2-5 
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JSB 
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5.H2-17 
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6.M2-16 
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7.M2-15 


ADD 


M6 


MPY 
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6,1, 


SBM 


9,1 


CJU 


8,2,GQU1+15 


CSB 


M4* 


ADD 


2. 


TZ 


GQU1+37 


CAM 


7,M2~14 


CAO 


7,1, 


ADO 


7,1, 


CJU 


9,2,GQUl+32 



FORM ARGUMENT T+R 



EVALUATE FIT+RI 



EVALUATE Ff-T*R> 



FORM SUMMATION 



GQU 10035 
GQU 10036 
GQU 10337 
GQU 10038 
GQU 10039 
GQU 10040 
GQU 10041 
GQU 10042 
GQU 10043 
GQU 10044 
GQU 10045 
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GQU 10048 
GQU 10049 
GQU 10050 
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GQU 10053 
GQU 10054 
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EXIT 
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LOCATE FIRST A 


CAM 


9 




CSB 


M4-1. 
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ADD 
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GQU1007Q 
GQU10071 
GQU 10072 
GQU 10073 
GQU 10074 
GQU 10075 
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01177,02200,16023,00265, 15177,03737,07071,01172,02576 GQU10175 

06037,17256,10034,11577,05657,14307,07701,10177,05323 GQU10176 

07273,13264,16777,04622,17541,13624,07577,03771,16571 6QU10177 

05655,03577,03027,01167,03634,14377,07757,15432,02602 GQU10178 

04776,03363,07325,12267,14176 GQU10179 



NAME: 
PURPOSE : 

OTHER SUBROUTINES USED: 
TEMPORARY STORAGE: 

NUMBER OF WORDS: 

FAST REGISTERS CHANGED: 

EXECUTION TIME: 

USE: 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
D2-RKG1-00-UI-AL 

Runge-Kutta-Gill 

To solve a system of N simultaneous, first-order, 
ordinary differential equations. 

An auxiliary subroutine provided by the programmer. 

Three consecutive words beginning at a location given 
in M2. 

25 
F2 

50 + 290N + k (auxiliary subroutine time in microseconds) 
where N is the number of equations to be solved. 

Standard by CALL RKG1 with: . the address of the first 

of three words of temporary storage in M2^ the parameters 



A M N 



in the word immediately following the CALL, where A is 
the address of the auxiliary subroutine ( which must 
begin in the first quarter of a word ), N is the number 
of equations to be solved, and M is the address of the 
first word of a block of 3N words to be used by RKG1. 

( a ) Y > y-L* •••, y are stored in locations M, M+l, 
. .., M+N-l respectively. The initial conditions 
are stored here by the user. The auxiliary sub- 
routine uses y Q , y 1 , . . ., y^ (but does not alter 
them) to compute the k. 's. The solutions are found 
here upon return from RKG1. 
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USE (Continued) 



METHOD: 



(t>) k Q , k^ . .., k are stored in locations M-fN, 

M+N+l, . .., M+2N-1 respectively . The k. = hf. are 
computed and placed here by the auxiliary subroutine, 

(°) 1q> Qi' '*'' %-l are s_t ored in locations M+2N, 
M+2N+1, . .., M+3N-1 respectively. (Note: This 
block of N words must be cleared to zero by the 
user prior to his first entry into RKG1.) 

If the independent variable x occurs in the functions 
f . or if it is required during an integration as an 
index, then it must be obtained by integrating the 
equation x' = 1„ The independent variable is then 
treated as an additional dependent variable^ for which 
the auxiliary subroutine must provide the quantity 
hx' = h. However, this latter quantity should be 
planted at the beginning of the integration in the 
appropriate location and left there so that the auxiliary 
subroutine is relieved of the task. If x does not appear 
in any of the f ' s but is merely wanted for indication 
purposes, it is quicker to use a simple counter in the 
main routine. 

Backward integration is achieved by making h negative. 

Given the set of N differential equations 



y- = f 1 (y ,y r y 2 ,...,y M ) 



(i = o, 1, 2, ..., n - i) 



the process used in the integration is defined by the 
following equations: 



\j mh£ i^oy7ii>—>Y(x-i)i) 



?. . , = B.(k. . - A.q. .) 



y i,j+l 



y. . + r. . , 
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METHOD (Continued) 



% 14.1 = %* + 3r. . - - C.k. . 
1*0+1 ij i,J+l J ij 



with the following table of values: 





1 


A. 

3 


B. 
J 


C. 
J 


2 


1/2 


1/2 


2 


1 


1 - VI72 1 


1 - iFl/F 


3 


1 


1 + s/i/JT 


1 + Vl/2' 


h 


2 


1/6 


1/2 



where the subscript i indicates the variable, the 
subscript j indicates the four parts of the integration 
step size. The process is sometimes known as the 
Gill-Kutta method. 

The kj^'s are evaluated by a closed auxiliary subroutine 

which must be provided by the user. During each pass 

through RKG1 four entries are made into the auxiliary 

routine to obtain the k^'s, k^'s, k 's and k^.'s. 

RKG does the arithmetic indicated in the r , v and 

ij ij 
q. . equations above. 

This is a fourth-order process, hence the truncation 
error in one step is of the order of h 5 . An approxima- 
tion to the error is obtained from the expression 



Vi5{y v 



y h/2 j 



where y h is the value of y obtained from using an 
interval of length h and y / is the value of y obtained 
from using an interval of length h/2. The rapid accumu- 
lation of round-off errors is suppressed by retaining 
the quantities q^^ between integration steps. 
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FIL 




CSM 


11,M14 


CSB 


M8+M13 


MPY 


10*1, 


ADD 


M13+M14 


MPY 


10,0, 


STR 


2,3, 


ASC 


13*0* 


CAD 


2,3, 


MPY 


3„ 


STR 


2,3, 


CS8 


M13+M14 


AON 


9,1 


CAM 


15 


MPY 


10,1, 


JNM 


15,RKG1*U 


MPY 


3o 


ADO 


2,3, 


ATN 


8,0, 


ASC 


13,1, 



F7*PARAMET£RS FOR RUNGE-KUTTU 



M10 = ADORESS OF FIRST CONSTANT 

M8 = 2N 

M9=-4, STEP COUNTER 

ENTER AUXILIARY 

Mll = -N 

ACCU=-QIJ 

ACCU = -AJ»QIJ 

ACCU * KIJ .- AJ*QIJ 

ACCU - BJ«K1J-AJ»QIJ|«RIJ 

F2= RIJ 

YI,J*1=YIJ*RIJ 

ACCU* FIJ 

ACCU= 3RIJ 

F2 ■ > 3RIJ 

ACCU -=KIJ 

M15=0 ON 4TH STEP, ELSE-VE* 
ACCU=-8J»Kl J, INCREMENT M10 
JUMP IF NOT 4TH STEP 
ACCU=?-l/6IKI4*-*i/2JKI4 
ACCU= 3RU~BJ«KIJ 

Ql,J+l=0IJ+3RIJ-BJ»KIJ 
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015 


RKGl 


016 
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O 
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H3 


1 VJl 




VJ1 


1 -P- 



CJZ 11»1*RKG1*13 

SBM 10*2 

TRA 2(,RKG1*5 

SBM 13*MI4 

CJU 9,3*RKGH-3 

SBM 2,3 

ATN 2 P 1 P 

LFR 7 

ATN 2,H 

LFR 6 

ATN 2,1 P 

LFR 4 

SBM 2»3 

JLH 3* Or 

FIL 

OCTQ 4000»» e l»4000»9t 

OCTQ 2000 s 9 9 1*453 t 166Q6 s 6300 e 620! 

OCTQ 2000, ,a 

OCTQ 3324, 1171 S 11477,1 1601 *4000 BS *l 

OCTQ 5252,12525,5252*12577 



COUNT AND JUMP IF 1= N-l 

RESET MiO 

JUMP TO CALCULATE YI+1* J+l,QI*Lt J*l 

RESET M13=A 

COUNT AND JUMP IF J NOT 4 
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DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
El-DVDFl-OO-UT-AL 



NAME: Divided, differences 

OTHER SUBROUTINES USED: An auxiliary routine for evaluating the function f(x). 

TEMPORARY STORAGE: A block of (k + 3) consecutive words, beginning at the 

location specified by the content of M2 at entry time. 

15 words (ik * k quarter words if the routine begins in 
quarter word l) 

F2 

Link in M3. 

Address of first location of temporary storage block 
in M2. 

Three parameters which have to be written in the word 
following the one with the CALL instruction: 



NUMBER OF WORDS: 

FAST REGISTERS CHANGED 
PARAMETERS : 



address of auxiliary 
address of first abscissa 
kth divided difference 



EXECUTION TIME: 



Dependent on the parameter k and the duration T. of the 
auxiliary routine (which is entered k + 1 times). 
Approximately, the total duration T is given by 



~ 2 
T » k 



25 usee + (k + 1)T, 



Programmed by: Jurg Wievergelt 
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USE: 



The user must provide : 



X, 



1) k+1 abscissas X , X, , . .., .,, 

invocations A, A+l, . .., A + k 

2) An auxiliary routine which takes the argument X. 

J 

either from the accumulator or from Fl and leaves 

f(X.) in the accumulator, has to he entered in 

J 

quarter word and linked in M3. 

3) A block of k + 3 consecutive words beginning at the 
location specified by the value of M2 at entry time. 

The subroutine computes a divided difference table and 
stores: 



kth divided difference f [x n , •"> x iJ in location 

* (M2) + 2 

(k-l)st divided difference f[x, , ..., x, ] in location 

1 k (M2) + 3 
(k-2)nd divided difference f[x_, . .., x, ] in location 

d * (M2) + k 



1st divided difference f[X, i^X, ] in location 

K ~ X K (M2) + k + 1 

the value of the function f(X, ) in location (M2) + k+2 



REMARK: 



where (M2) is the content of M2 at entry time. The kth 
divided difference f[x Q , x,, . .., x, ] is also left in 
the accumulator. 

This routine can be used recursively, i.e., the auxiliary 
routine f may again contain a CALL DIVF. 
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2,1, 


SFR 


5 


ATN 


3» 1 9 


LFR 


5 


ATN 


2»l, 


SFR 


4 


ATN 


M5 


CAM 





ATN 


M6 


CSM 


7,i 


OIVFI CAO 


Otic 


ATN 


m 


JSB 


3t0«0 


FIL 




STR 


2 9 1 9 


CJU 


7.DIVFI 


ATN 


N6 


SBM 


2.1 


ATN 


m 


CSM 


3 


DIVF2 CAM 





ATN 


H3 


ATN 


M6 


CAM 


It I 


DIVF3 ATN 


M5 


CSS 


MO 


ATN 


M5 


ADO 


1*1. 


STR 


F2 


ATN 


M2 


CSB 


0,1, 


ATN 


M2 



DIVIDED DIFFERENCES FIRST CARD 

SAVE F5 

INCREASE LINK BY 1 

READ PARAMETERS INTO F5 

SAVE F4 

MO ■* XQ 

M7 - ~tK+tl 
ABSCISSA 

AUXILIARY 

FILL UP S0»Sl Pn ». B SK 



M3 



M| COUNTS UP TO K FOR INNER LOOP 

CURRENT ABSCISSA 

NEXT ABSCISSA 

STORE DIFFERENCE OF ABSCISSAS IN F2 

CURRENT DIVIDED DIFFERENCE 



OIVFGI 
DIVF02 
DIVF03 
OfVFO* 
OIVF05 
DIVFG6 
OtVFOT 
0IVF08 
6tVF69 
DIVF10 
DIVF11 
01VF12 
DIVFI3 
DIVE 14 
DiVF15 
DIVF16 
DIVF17 
DIVF18 
DfVFi9 
OIVF20 
0IVF2L 
0IVF22 
DIVF23 
DIVF24 
DIVF25 
0IJ/F26 
DIVF27 
OIVF2B 
01VF29 
DLVF30 
DIVF31 
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O 
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Hj 


i 
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i 
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H 
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NO 


DIV 


F2 


SBM 


0,3,1 


STR 


M2 


SFN 


HI 


ATN 


M6 


CAM 


7 


JPM 


7,DIVF3 


CJU 


3,DtVF2 


ATN 


M2 


LFR 


4,-1 


SBM 


2,2 


ATN 


M2 


LFR 


5 


JLH 


M3 



NEXT DIVIDED DIFFERENCE 
NEW DIVIDED DIFFERENCE 



INNER LOOP 
OUTER LOOP 

RESTORE F4 



RESTORE F5 



DIVF32 
D»F33 
BWF34 
DWF35 
0IVF36 
DWF37 
01VF38 
0IVF39 
DWF40 
DWF4I 
0I1TF42 
0IYF43 
0WF44 
©t3*F45 
0iyF46 



NAMEs 

OTHER SUBROUTINES USED; 

TEMPORARY STORAGE: 



NUMBER OF WORDS: 

FAST REGISTERS CHANGED: 

TIME: 

ENTRY: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
ILLIAC II LIBRARY PROGRAM 

E1-LAG6-00-UI-AL 

Lagrange six-point interpolation for equal intervals. 

None 

COMMON to COMMON + 7. 

On exit, COMMON to COMMON + 5 contain 120 times the six 
Lagrange coefficients A , A_ ± , A Q , A^ and A respectively. 

l/l20 is available at location LAG6 + 26. 

Ml is incremented by the number of control words used. 

27 

F2, F3 and ik (except MO and M2) 

250 + 125N microseconds where N is the number of control 
words . 

Standard by CALL with: 

x in Ace where x is the interpolation point scaled 

as if the tabulated values of f(x) are at x = 0, x = 1, 



x = 2 S 



,, and with the address of the first control 



word in Ml. 

The format of the control words is : 



B 


S 


R 


C 



where B is the base of the table, S is the spacing 
between the entries: that is, Y(o) is in B, Y(l) in 
B + S ... and Y(N - l) is in B + (N. - l)s), R is the 
storage location where the result is to be placed, and 
if C / 0, there is another control word specifying 
another table in the next higher addressed location. 
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EXAMPLE: 



Suppose locations 100 to 199 contain 



/n« s 



n = 0, 1, ..., 99 



and locations 300 to 399 contain 



^ (f^) 



n 



0, l, ..., 99 



To find sin joc and tan jtx, and to store in locations B 
and B + 1 where x is in the accumulator, the program 
below can be used. 





MPY 


400 




CAM 


1, A 




CALL 


LAG6 




FIL 




A 


DECQ 


100, 1, B, 1 




DECQ 


200, 1, B + 1, 



EXIT: 



RANGE: 



ACCURACY: 



Standard by JLH.M3. The Interpolated value of the last 
table entry is in the accumulator at exit as well as 
in the specified storage location. 

Table entries f should satisfy |f | < j^x h and x should 
satisfy 2 < x < n ~ 3 where n is the number of table 
entries. 



For a discussion see 

?! 



Error arises from four sources , 

"Tables of Lagrangian Interpolation Coefficients, 
Columbia University Press. New York (1944), pp. xiii-xx. 
The errors are : 

-24 1 i 

1. Round-off in this subroutine < 11 X 2 |f | where 

|f | is the maximum absolute table entry used. 

2. Truncation in six-point Lagrange formula. 
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ACCURACY (continued); 



USE: 



METHOD: 



3- Error due -to errors in table entries. This is 
bounded by 89/64 max | e . j where € . are the errors 
in the six entries used. 

4 . Error due to error e in interpolant x . 

This subroutine can be used for interpolating 
simultaneously in several tables for different functions 
of the same argument x. If the functions are tabulated 
at points x Q , x Q + h, x Q + 2h, . „., x Q + nil/ x must be 
translated and scaled before entry by subtracting x 
and dividing by h. The user must prepare a list of 
control words in memory, one for each table, in ascending 
addresses. The last one should have a zero fourth 
quarter; all others should not. 

120 times the six-point Lagrange coefficients 



-2 



= -(p - 3)(p - 2)(p - l)p(p + 1)/120 



A_ x = +5(p - 3)(p - 2)(p - l)p(p + 2)/l20 
A Q = -10(p - 3)(P - 2)(p - l)(p + l)(p + 2)/l20 



A, = 



A~ = 



+10(p - 3)(p - 2)+(p + l)(p + 2)/l20 
-5(p - 3)(p - l)p(p + l)(p + 2)/l20 



and 



A 3 = +(p - 2)(p - l)p(p + l)(p + 2)/l20 



are calculated using 16 multiplies and placed in 
locations COMMON to COMMON + 5 where p is the fraction 
part of x. Then for each table j, 



T.. = contents of location (B. + S.(q - i)) 

+3 
is found, and Z T .A. is stored in location R. where q 
i=-2 " 1 1 " 

is the integer part of x. 
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FIL 




SFR 


5 s CQMMQN+6 


SFR 


6.C0MM0N+7 


SIA 
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SUB 
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STR 


F3 
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-10CP-3)P-2HP-IJ 
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LAG60009 
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LAG60012 
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LAG60014 
LAG60015 
LAG60016 
LAG60017 
LAG60018 
LAG6Q019 
LAG60020 
LAG60O21 
LAG60022 
LAG60023 
LAG60024 
LAG6002S 
LAG60026 
LA66O02? 
LAG6GG28 
LAG60Q29 
CAG60030 
LAS60031 
LAG60032 
LAG60033 
LAG60034 
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F3 


MPY 


M5 


STR 


5, It 


CAD 


-3~M6o 


ADD 


F2 


MPY 


F3 


CJU 


6,2»LA66+13 


STR 


C0MN0N+5 


CAM 


7.M4 


ATN 


Itlt 


LFR 


6 


CAO 


M9e 


MPY 


-2+M7. 


SIA 


4 


AOM 


8,M4 


CAM 


6,-6 


CAO 


IS, 3, 


STR 


F3 


CAM 


5 .COMMON 


CAD 


5,1, 


MPY 


M8 


AOM 


8,M9 


ASC 


F3 


C4U 


6,l»LAG6*2t 


ADD 


F3 


MPY 


LAG6+26 


STR 


MIO 


JUM 


11,0,LAG6+L7 


LFR 


5»C0MM0N+6 


LFR 


6, COMMON* 7 


JLH 


M3 


Fit 


_ 


OCTQ 


4210,10421,1 



(LAG6+13,2S 

A(U r I*~2»H1 >*,»„, +2 



At3l 
M7=Q 

GET NEXT CONTROL WORD 



!Q-2I*S+B 



(LAG6+2WU 

A-3 T- i 3*«»-.+A2T2 



* 1/120 

STORE RESULT 

TEST FOR MORE TABLES 



1/120 



LAG60035 

LAG60036 

LAG60037 

LAG60038 

LAG60039 

LAG60040 

LAG60041 

LAG60042 

LAG60043 

LAG60044 

LA660045 

LA660046 

LA660047 

LAG60048 

LAG60049 

LAG60050 

LAG60051 

LAG60052 

LAG60053 

LAG 60054 

LAG6005S 

LAG60056 

LAG60057 

LAG60058 

LAG600S9 

LAG60060 

LA660G61 

LAG60062 

LAG60063 

LAG60064 

LAG60065 

LAG60066 

LAG60067 



NAME: 

TEMPORARY STORAGE: 



OTHER SUBROUTINES USED: 
NUMBER OF WORDS: 
EXECUTION TIME: 

USES 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
ILLIAC II LIBRARY PROGRAM 

El-LGUN-OO-UI-AL 

Lagrange Interpolation for Unequal Intervals 

COMMON to COMMON + 1. 

F2^ F3 and Fk (except for MO and M2)„ 

Ml is incremented by the number of control words used. 

None 

28 

2ku + 28NM micros ecs where N is number of points used 
and M is the number of functions interpolated. 

Standard by CALL LGUN with: 

x in accumulator. 

Control word list address in ML, where the First Control 

Word contains : 



B 


s 


N 


T 


X 




X 









where the values x to x of the independent variables 
x are in locations B, B + S s „.._, B + (N - l)S 

XXX X X 

respectively where N is the number of points used and T 
is the first word of a block of N temporary storage 
locations in which the Lagrange coefficients A~ to A^ 
will be placed. The second and subsequent control words 
have the format 



B 


S 


R 


C 



where the functional values 



T = f ( X 0>> *! = *(*!), ..-, Vl = f( Vl } 
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USE ( cont inued ) : 



are in locations B,, B + S, . „., B + S(N - l) 
respectively . The result of interpolation in this 
table to get f(x)^ i.e., the number 



N-l 
E A.T. 

i^O 1 x 



EXIT: 



METHOD: 



is stored in location R. If c / 0, there is another 
control word for another tabulated function in the next 
higher addressed location. 

Standard by JLH M3 with the last interpolated value in 
the accumulator as well as in store^, and Locations T, 
T + 1, . ..> T + N - 1 contain the Lagrange coefficients 
A Q , A^ . .., A R _ 1 respectively. 

The N Lagrange coefficients A_, A.., .„.<, A.. - are 
calculated,, where 



A. 




ACCURACY; 



These appear in locations T + j . 

This takes 3(N - 2) + N(N - 2) multiplications and N 



divisions. 



N-l 



Then for each table. Z T.A. is evaluated. 



i=0 



l l 



Error can arise in five ways . 

1. • Accumulated round-off in this subroutine 



r N-l i 

<-\hl$ + E | A. |f- 2 

L i=0 x J 



45 i 



where jf | is the maximum absolute table entry. 



Dates 

Section; 
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8.4-E1-LGUN 
2 of 7 



Change; 



ACCURACY (continued): 



2. Truncation error in the Lagrange formula. Refer to 
"Tables of Lagrangian Interpolation Coefficients, " 
Columbia University Press, New York (l9kk) 

3. Error in the interpolant. 

4. Error in the table entries, 

5° Error in the x . If the x. are close to each other, 
this error can be very large since it depends on 
terms including 



x. - x. 



RANGE: 



The A will be in range provided that 



k~ 6k < id!*- 1 < ID) 1 *" 1 < k~ 63 



where d is minimum distance between the x. and D is the 

maximum distance between the x. or x. and x, 

l i 

For a "rule of thumb" that relaxes this strict limit, 

the average distance between the x.'s should be in the 

range 



EXAMPLE: 



(k~ 6k ) 



N - 1 




The intermediate scalar products Z A.n cannot overflow 
if Z ItJ |d| < k~ 3 , although it is normally suf- 
ficient that the result be in range. If xhe strict 
bounds are not satisfied, overflow should be checked. 

Suppose that a monotone increasing function f(x) is 
tabulated for points x Q , x , . . , , x in locations 
100-199, that x Q , x-^ . . . , x are in locations 200-299 
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EXAMPLE (Continued); 



and that another function g(x) is tabulated in locations 
300-399= Given f it is desired to find x and g(x) where 
x is such that 



f = f(x) 



Suppose that N is such that 



f(x B )<f<f( Vl ) 



and a six-point interpolation is employed the entry 
below can be used. 



CAM 

CALL 



1,A 
LGUN 



DECQ N + 98, 1, 1 3 COMMON + 2 
DECQ N + 198, 1, X, 1 
DECQ N + 298« 1, G« 



COMMON is assumed to denote a block of eight storage 
locations, X contains x and G contains g(x) after 
execution. In this case we must have 2 < N < 97, so 
that the points used are inside the table. 
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FIL 
SFR 
SFR 
STR 
ATN 
LFR 
SUB 
CAM 
CAM 
CAM 
STR 
ADM 
CAD 
SUB 
MPY 
CJU 
STR 
ADM 
CAM 
CAD 
SUB 
STR 
S8M 
MPY 
STR 
CAD 
SBM 
SUB 
MPY 
CJU 
STR 
CAM 
CSM 
CAD 
STR 



5, COMMON 

6, COMMON* 1 
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CAM 5,M8 

SUB M5 

SFN M10 

CAM 4 

JDC 4,3»LGUN+17 

CAD F2 

AOM 5,M9 

SUB M5 

CJU 4,3,LGUN*17 

CAD F2 

ADM 5,M9 

SUB M5 

JDC 5,LGUN+18 

MPY FO 

STR FO 

CJU 4.LGUN+16 

CAD FO 

V£D Mil 

STR 11,1, 

ADM 7,M9 

CJU 6,1,L6UN+12 

SBM 11,M10 

ATN 1,1, 

LFR 5 

CAM 9,2,1-MiO 

CAD 11,1, 

MPY M4 

STC F2 

STR FO 

ADM 4,M5 

CAD M4 

MPY 11,1, 

ADD FO 

ASC F2 

CJU 9,3,LGUN+22 



M5=B 
X(J}~XU} 

M4 .* -N 

IS XUJ-X{0)=0 



Xtli-=X{0) 



X(J}-Xf I) 



A{J} 



NEXT CONTROL WORD 
M9=-CN-1J 
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M6 




JUM 
LFR 


7*l»LGUN+20 
5 • COMMON 


TEST FOR MORE CONTROL WORDS 
RELOAD F5 


LFR 
4LH 


6 .COMMON* I 
3»» 


RELOAD F6 



L0UNG070 
LSUN0071 
LGUN0072 
L6UNG073 
LGUNG074 
LGON0075 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
F4-SLQ1-QO-UI-AL 

NAME: Simultaneous Linear Equations 

OTHER SUBROUTINES USED: None 

TEMPORARY STORAGE: Common to Common + 4 + N where N is the rank of the 

matrix A. 

NUMBER OF WORDS: 73 
FAST REGISTERS CHANGED: F2 and F3 

EXECUTION TIME: Approximately lON^N + 2M) microseconds 
EnT R Y : Standard by CALL SLQ1 with: 

Ml = address of parameter P. 



N M A B 



N = dimension of matrix A. 

M = number of solutions to computer, i.e., number of 
columns of matrix B. 

A ~ address of first word of matrix A where A is stored 
consecutively by rows. 

B = address of first word of matrix B where B is stored 
consecutively by rows. 

For example, if we have 



P DECQ 17, h, 1000, 1800 



and we have 
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ENTRY (Continued) 



CAM 1,P 
CALL SLQ 



EXIT: 



METHOD: 



then SLQ finds the four sets of solutions to the set 
of 17 simultaneous equations represented in core by 
the matrix beginning at 1000 and where the constant 
matrix begins at 1800. 

Standard by JLH M3. The value of the determinant of 
the matrix is in the accumulator at exit. 

The solutions for the matrix problem 



AX = B 

are obtained via Gauss-Jordan elimination using maximal 
pivotal elements. The solutions in the matrix Bare 
handled in parallel, i.e., each element in a row of B 
is computed before going on to another row. 

The matrix A is destroyed and matrix B contains the 
solutions to the problem. 
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NAME: 

TYPE: 

TEMPORARY STORAGE: 

FAST REGISTERS CHANGED: 

EXECUTION TIME: 

DESCRIPTION: 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
G5-RAN1-00-UI-AL 

Random Number Generator 

Closed Subroutine 

Internal 

Accumulator, FO, Fl 

25 usee for 13-bit numbers, 60 usee for 52-bit numbers 

The subroutine will generator unnormalized floating- 
point random numbers as specified by parameters in 
MO and Ml. Two types of results are possible., Both 
are entered by 

CALL RANI 

1) MO = number of 52-bit numbers to be generated 
(MO > 0). 

Ml = storage location of first number; subsequent 
numbers are stored sequentially. 

2) MO = means generate only a 13-bit number and put 
it in MO. 

Ml is not used here. 

Two independent methods of generation are used. One 
is for the 1+5-bit fraction, and the other for the 7-bit 
exponent . 

The fractional part is created using a modification of 
the sequence 
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DESCRIPTION (Continued) : F N = (F K _ 1 • 5 y )mod 2 , F Q = 1 

42 
with cycle 2 

Experience has shown that there is a noticeable "bias in 
the last few bits of the numbers generated by this 
sequence, A corrective step consisting of a right 
shift of four bits is used to ament the anomaly. 
Detailed testing of this generator is described in 
File No. 612. 1 

For the exponent part a modified version of the 
Fibonacci sequence 

S n = (6 n-l + e n- 2 ) m ° d ^ S = °' e i = 1 



is employed. The change consists of doing a single 
bit circular left shift of e . This modified sequence 
has a period of 62,445,728. Further details of this 
generator, as well as a fuller description of the 
fractional algorithm used above, can be found in File 
No. 608. 2 

The right-hand seven bits of the shifted version of e n 
are used as the exponent of the 52-bit result, and 
the left-hand bit is used as the sign. In the case of 
entry with MO = 0, the 13-bit shifted version of e n is 
used directly. 

It will be noted that every time this subroutine is 
reloaded, the sequences are initialized. If one 



1 Random Number Generator Test Procedures Applied to a Modified, Multiplicative. 
Congruential Generation Method, by D. K. Chow. 

2 Random Number Generators for ILLIAC II, by Gilbert Cooper. 
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DESCRIPTION (Continued): wishes to extend the sequence over many runs, the 

following procedure may "be used. 

1) After using the subroutine for the last time do a 

CALL RAN1B 

A card will be punched. Save it. 

2) The next time the program is loaded do a 

CALL RAN1C 

before the first entry to the random number 
generator. Include with your program deck a 
dollar-data card followed by the card punched above, 

These two subroutines either punch or read locations 
RANP and RANP + 1 in eight octal quarter words. The 
format is 

e , , e , 0, 2, F. T (four quarter words) 
n-1 n N 

Inter- subroutine access to RANP is made by a special 
entry in RANI, namely RAN1A. 
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SAVE F4 AND F5 

LOAD PARAMETERS 
SET WORD COUNTER 

FORM 13 BIT RANDOM NUMBER 

JUMP IF FULL WORDS DESIRED 
OTHERWISE KEEP ONLY 13 BITS 
SAVE PARAMETERS 
REPLACE F5 
EXIT 

FORM 45-BIT FRACTIONAL PART 
PREVENT Z SET ON LATER PASS 
SAVE FOR NEXT GENERATION 
CORRECT FOR BIAS IN LAST FEW BITS 

PUT CORRECTED NO. IN ACCUM. 
USE 7 BITS FOR EXPONENT 

USE SIGN BIT FOR SIGN OF FRACTION 

STORE IN DESIRED SPOT AND INC, COUNTER 

END TEST 

REPLACE F4 

GO TO PRE-EXIT 

PARAMETERS 
1- (FIXED POINT) 
200 5»*19 {FIXED POINT) 
PUNCH-READ PARAMTER 
FORMAT 
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CALL 
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CALL 
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CALL 
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GO 





GET PARAMTERS FOR PUNCH-REAO 
EXIT 



SAVE F4 

GO TO PARAMETER FETCH 

PUNCH FOR NEXT TIME 

REPLACE F4 

EXIT 

SAVE F4 

GO TO PARAMETER FETCH 

READ CARD FROM LAST TIME 

REPLACE F4 

EXIT 
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NAME: 
TYPE: 

TEMPORARY STORAGE: 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
J6-TOFS-01-UI-AL 

Typewriter Or Paper-tape Output System 

Collection of output subroutines compatible with 
interrupt mode 

Each subroutine contains its own area of temporary- 
storage • 



FAST REGISTERS CHANGED: None 



EXECUTION TIME: 
DESCRIPTION: 



Note: 



Variable, depending on output device selected 

These subroutines are useful mainly for engineering 
purposes. The user may specify choice of three 
modes of operation: 

(1) Bypass all output 

(2) Output on the on-line IBM Selectric 
typewriter 

(3) Output on paper tape 

The subroutines included are listed below with 
information on their use. 

If a print sequence does not begin with one of 
these subroutines, the programmer should start 
with 

CAM 1,2+8 (See table 1, entry kS) 

CALL PTA 

to assure that the typewriter is in the output 
mode . 
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USE: 



Choice of Mode: 



SUBROUTINES INCLUDED: 
1 • Name : 

Length : 

Other subroutines used: 

Use: 



2 . Name : 



Length : 

Other subroutines used: 

Use: 



3 . Name : 



Length : 

Other subroutines used: 

' Use: 



The first two bits of SR3h a specify mode: 

o - 

Bit = for output 

= 1 for bypass output 
Bit 1=0 for typewriter 

= 1 for paper tape 

Punch-T^y-pe Alternator 

Ml = character in paper tape code 

k-2 words 

None 

To output one character in mode specified, 

set Ml and enter via 

CALL PTA 

Punch or Type MeSSage 

Ml = address of first word of message 

13 words 

Number 1 

To output a message, set Ml and enter via 

CALL PTMSS 
The message should start at a word boundary, 
one character per quarter-word, in paper tape 
code (see table l). A quarter word of all 
ones is used as the terminator symbol. 

(A) Punch or Type Quarter Word in Octal 
Ml = quarter word 

(B) Punch or JT/pe Full Word in Octal 
Ml = address of word 

31 words 
Number 1 

(A) To output a quarter word in octal format, 
set Ml and enter via 
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k . Name : 



Length : 

Other subroutines used: 

Use : 



5 . Name : 



Length : 

Other subroutines used: 

Use: 



CALL PTQW for no preceding character 

CALL FTQW1 to precede by a LF/CR 

CALL PTQW2 to precede by a space 

or CALL PTQW3 to precede by a tab 

(B) To output a full word from memory in 

octal format (k- quarter words per line) 
set Ml and enter via 

CALL FTFW for no preceding character 
CALL PTFW1 to precede by a LF/CR 
CALL PTFW2 to precede by a space 
or CALL PTFW3 to precede by a tab 

Punch or Type Decimal Quarter Word 
Ml = quarter word 

35 words 

Number 1 

To output a quarter word as a positive 
decimal number, < n < 8191, (k digits 
right justified with leading zeros sup- 
pressed) set Ml and enter via 

CALL PTDQ for no preceding character 
CALL PTDQ1 to precede by a LF/CR 
CALL PTDQ2 to precede by a space 
or CALL PTDQ3 to precede by a tab 

Punch or Type Full Word in Octal with Address 

Ml = address of word 

7 words 

Number 3, Number k (Number l) 

To output a full word from memory in .octal 

format -"with the address as follows: 

100 001^4 02760 13500 10202 00137 
set Ml and enter via 

CALL PTFWA 
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6 . Name : 



Length : 

Other subroutines used: 

Use; 



7 . Name ; 



Length : 

Other subroutines used: 

Use: 



Punch or Tjype Sexadecimal Word 

Ml = address of word (except for special 

entry PTSWS ) 

kO words 
Number 1 

To output a full word from memory in float- 
ing point sexadecimal format, set Ml and 
enter via 

CALL PTSW for no preceding character 

CALL PTSW1 to precede by a LF/CR 

CALL PTSW2 to precede "by a space 

or CALL PTSW3 to precede by a tab 

SPECIAL ENTRY 

This subroutine takes a word from memory with 
7 -bit exponent and extends the exponent to 8 
bits by duplicating the sign bit. If it is 
desired to output a word from the accumulator 
with full 8-bit exponent, load the exponent 
into Ml, the word into F5, and enter via 

CALL PTSWS 

Punch or Type Sexadecimal Word with Address 

Ml = address of word 

7 words 

Number 3, Number k, Number 6 (Number l) 

To output a full word from memory in floating 

point sexadecimal format with the address as 

follows : 

100 00144 05dO-+0^2080 bd 

set Ml and enter via 

CALL PTSWA 
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8. Name: Punch or Type Decimal Word (with variations) 

Ml = some value as specified "below 
Length: 131 words 

Other subroutines used: Number 1 
Use: !• Ml = address of word 

To output a full word from memory in 
floating point decimal format, set Ml and 
enter via 

GALL PTDW for no preceding character 
CALL PXDW1 to precede by a LF/CR 
GALL PTDW2 to precede by a space 
or CALL PTDW3 to precede by a tab 

2. Ml = address of parameter word 

To obtain a fixed format printout of N 
consecutive variables starting at loca- 
location L, use: 

CAM 1, PARAM 
CALL FTFIW 

The format calls for up to eight words 
on a line, each word of the form 

bbb± .ipOOOQQO OOOQOO ^E+00 

3 blanks 13 2 

PARAM is a location in memory specifying 
the parameters N and L as 

PARAM DECQ N,L,, 

3, Ml = not used 

To obtain a fixed format printout of the 
current contents of Amost use: 

CALL PTFDA 
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The contents of Amost will appear in the 
format 



+ .^000000000000^+00 



13 2 

Ml = address of parameter list 

To print the contents of Amost in a very 

adaptable manner, use: 

CAM 1,-PABAM 

CALL PTFEWA 

PARAM is the address in core memory of two 
words containing the following information: 

PARAM DECQ S,N,K, ,F,C,P,R 

The parameters have the following meanings : 

1. S is the number of spaces preceding the 
sign. 

S = -1 means 1 LF/CR 
S = means no space 
Range: -1 < S 

2. N is the total number of digits 
computed; if leading zeros are- printed, 
N is the total number of digits printed 
out. 

Range: 1 < N(< 13 for F = 1 only). 

3. K is the number of digits after the 
decimal point; K = means no decimal 
point . 

Range: < K < N. 
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k. F specifies the format 
F = gives the format 




This format utilizes a feature called 
automatic W increment (see a. in notes). 

F = 1 gives the format 




5. C is the desired character to precede 
the number if positive. All negative 
numbers are preceded by - • C must 
be a decimal code appearing in FTCON. 

6. P = means initial zeros are suppressed, 
P = 1 means suppressed initial zeros 

are replaced as dictated by R (see 7 
below). This parameter has effect only 
for format F = 0. 

7. R = means suppressed initial zeros are 
replaced by nothing. 

R = 1 means suppressed initial zeros 
are replaced by spaces. 

Notes on format 

a. Automatic W-increment 

If the number to be converted is > 10 , 
it cannot be correctly represented by N-K 
decimal digits before the decimal point. 
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Hence, N is increased until the number 

N-K 
is < 10 . Notice: There is no N- 

increment for format F = 1 

b. If the user asks for K decimal digits after 
the point, the number a is multiplied by 

10 K . If 10 K a Q > k 6k = 10 38 , this leads to 
overflow and a nonsense result. This 
limitation of the size of K is no real 
restriction, however, since the additional 
digits after the point would not be 
significant anyway. 

c. The method used to convert a number a n 
from binary to decimal assumes that a is 
an integer. In general, a is not an 



'0 



integer; but as long as |aJ < 2 , it is 
rounded and the integer part (a + 1/2) is 
converted exactly. If ja | > 2 , this is 
no longer possible, and the unrounded a is 
submitted to the algorithm. 



Registers Destroyed: 

Accuracy: 



Acknowledgment ; 



R,ES 

This subroutine is not planned for maximum accuracy; 
frequent multiplications by 10 may generate a con- 
siderable round-off error. Integers up to 13 digits 
are exact. For format F = 0, more than 13 digits are 
not significant. 

This program is an adaptation of the original paper 
tape output routine (J3-DPRl-2^v) written by 
Jurg Wievergelt on October 30, 1962, for the Digital 
Computer Laboratory at the University of Illinois. 
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9 • Name : 



Length : 

Other subroutines used: 

Use: 



Punch or Type Decimal Word, with Address 

Ml - address of word 

7 words 

Number 3, Number k, Number 8 (Number l) 

To output a full word from memory in floating 

point decimal format with the address as follows 

loo 00144 +,1234567890123E+Q2 
set Ml and enter via 



CALL 



PTDWA 



10 . Name : 



Length : 

Other subroutines used: 

Use: 



Memory Dump Control for Full Word Octal 
Ml = address of parameter word 

6 words 

Number 3, Number l6 (Number l) 

To dump a portion of the memory in full word 
octal format, set Ml and enter via 

CALL PTMDF 

The parameter word should contain: 

Q. W. 0) not used 

Q. W. l) First word address 

Q. W. 2) Last word address 

Q. W. 3) not used 



11. Name: 



Length : 

Other subroutines used: 



Memory Dump Control for Full Word Octal with 

Addresses 

Ml = address of parameter word (see #10) 

6 words 

Number 5, Number l6, (Number 1, Number 3, 
Number 4) 
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Use: 



To dump a portion of the memory in full word 
octal format with addresses, set Ml and enter via 



CALL 



FTMDFA 



12 . Name : 



Memory Dump Control for Sexadecimal 

Ml - address of parameter word (see #10 ) 



Length: 6 words 

Other subroutines used: Number 6, Number l6 (Number l) 

Use: 



To dump a portion of the memory in floating 
point sexadecimal format, set Ml and enter via 



CALL 



PTMDS 



13. Name: 



Length : 

Other subroutines used: 

Use : 



Memory Dump Control for Sexadecimal with 

Addresses 

Ml = address of parameter word (see #10 ) 

6 words 

Number 7, Number 16 (Number 1, Number 3, 
Number k, Number 6) 

To dump a portion of the memory in floating 
point sexadecimal format with addresses, set Ml 
and enter via 



CALL 



PTMDSA 



lit-. Name: 



Length : 



Memory Dump Control for Full Word Decimal 
Ml = address of parameter word (see #10) 

6 words 



Other subroutines used: Number 8, Number l6 (Number l) 



Use 



To dump a portion of the memory in floating 
point decimal format, set Ml and enter via 

CALL PTMDD 
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15. Name: Memory Dump Control for Full Word Decimal 

with Addresses 
Ml = address of parameter word (see #10) 

Length: 6 words 

Other subroutines used; Number 9, Number l6 (Number 8, Number 3, 

Number k, Number l) 



Use: 



To dump a portion of the memory in floating 
point decimal format with addresses, set Ml 
and enter via 



GALL 



PTMDDA 



l6 . Name : 
Length: 

Other subroutines used: 
Use: 



Punch or Type Memory Dump 
9 words 

None 

This subroutine should not be called by the 
programmer . It is used by subroutines 
Number 10, Number 11, Number 12, Number 13, 
Number lk, and Number 15 to produce a memory 
dump in the specified format. 



17 . Name : 



Length : 

Other subroutines used: 

Use: 



Fast Register Dump Control for Full Word 

Octal Format 

Ml = address of storage 

5 words 

Number 3, Number 20 (Number l) 

To dump fast registers 2 through 7 (properly 
labeled) in full word octal format, store Fk 
in memory, set Ml to the address of storage, 
and enter via 

CALL PTFRD0 
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The original contents of Fk (as stored in 
memory) are restored to F^ prior to exit. 

18. Name: Fast Register Dump Control for Sexadecimal 

Format 
Ml = address of storage 

Length: 5 words 

Other subroutines used: Number 6, Number 20 (Number l) 



Use: 



To dump fast registers 2 through 7 in 
sexadecimal format, proceed as in Number 1J, 
but enter via 

GALL PTFKDS 



19 . Name : 



Length : 

Other subroutines used: 

Use: 



Fast Register Dump Control for Full Word 

Decimal Format 

Ml = address in storage 

5 words 

Number 8, Number 20 (Number l) 

To dump fast registers 2- through 7 in decimal 
format, proceed as in Number 17 but enter via 



CALL 



PTFRDD 



20 . Name : 
Length : 

Other subroutines used; 
Use: 



Punch or Type Fast Register Dump 

25 words 

Number 1 

This subroutine should not be called by the 
programmer . It is used by subroutines Number 1T> 
Number l8, and Number 19 to. produce a fast 
register dump in the specified format. 
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21. Name: Punch or Type Accu mulator Dump 

Ml = not used 

Length: 88 words 

Other subroutines used: Number 1, Number 2, Number 6 

Use: To dump Amost, Aleast, R,ES, FQ(Out), and 

Fl(ln) as floating point sexadecimal numbers, 
enter via 

CALL PTACC 

This subroutine also indicates whether OV or Z 
indicators were on upon entry. All information 
is restored except R,ES. 

Note that R,ES contains the remainder immediately 
after division, hut otherwise may be meaningless. 
If the first two hits of ES differ, OV will he set 
during storage (see EXCEPTIONS below). Should 
this occur, the comment "OV set during storage" 
will occur in the output, although the true con- 
tents of ES will be given. 

EXCEPTIONS : 

If Z indicator is on or if R contains zero, the 
setting of OV during storage of R,ES will be in- 
hibited. Therefore, if either of the two conditions 
are true, a question mark will appear after ES to 
indicate that the true value of the first bit of ES 
is undeterminable by a program. 
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TABLE I. PTCON, Punch to Type CONversion 

This is a table of the typewriter characters assigned to the various 
paper tape characters. Note that the following special typewriter characters 
are not included; ir -J % 







Paper- 


Typewriter 






Paper- 


Typewriter 


Decimal 


Octal 


Tape 


Character 


Decimal 


Octal 


1 Tape 


Character 


Value 


Equivalent 


Code 


Assigned 


Value 

' " 64 


Equivalent 
00100 


Code 

) 


! Assigned 





00000 










1 


00001 


1 


1 


65 


00101 


:/•■'■ 


2 


00002 


?, 


2 


66 


00102 


{ 


! t i 


3 


00003 


3 


3 


67 


00103 


} 


3 i 


4 


00004 


4 


U 


68 


00104 


< 


< 


5 


00005 


5 


5 


69 


00105 


> 


> 


6 


00006 


6 


6 


70 


00106 


A 


A 


1 T 


00007 


7 


7 


71 


00107 


■**♦ 


•♦ 


1 8 


00010 


3 


8 


72 


00110 





? 


! 9 


00011 


9 


9 


73 


00111 


( 


( 


! 10 


00012 


+ 


+ 


74 


00112 






n 


00013 


- 


- 


75 


00113 


I 


| 


12 


oooi4 


a 


a 


76 


00114 


A 


A 


13 


00015 


b 


b 


77 


00115 


B 


B 


14 


00016 


c 


c 


78 


00116 


C 


C 


15 


00017 


d 


d 


19 


00117 


D 


D 


16 


00020 


e 


e 


80 


00120 


E 


E 


17 


00021 


f 


f 


81 


00121 


F 


F 


18 


00022 


9 


9 


82 


00122 


G 


6 


19 


00023 


h 


h 


83 


00123 


H 


H i 


20 


00024 


i 


i 


84 


00124 


1 


I ■ 


21 


00025 


J 


3 


85 


00125 


J 


j ! 


22 


00026 


k 


k 


86 


00126 


K 


K 


23 


00027 


» 


1 


87 


00127 


L 


L 


24 


00030 


m 


m 


88 


00130 


m ; 


M 


25 


00031 


n 


n 


89 


00131 1 


N | 


N 


26 


00032 








90 


00132 ' 


i 





27 


00033 


P 


P 


91 


00133 ; 


P j 


P 


28 


00034 


q 


q 


92 ; 


00134 . 


0. 


Q 


29 


00035 


r 


r 


93 


00135 ; 


R 


R 


30 


00036 


s 


s 


94 


00136 j 


s 


S 


31 


00037 


t 


t 


95 


00137 i 


T 


T 
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TABLE 1. PTCON, Punch to Type CONversion (Continued) 







Paper- 


Typewriter 






Paper - 


Typewriter 


Decimal 


Octal 


Tape 


Character 


Decimal 


Octal 


Tape 


Character 


Value 


Equivalent 


Code 


Assigned 


Value 


Equivalent 


Code 


Assigned 
U 


32 


00040 


u 


u 


96 


00140 


U 


33 


00041 


v 


V 


97 


00141 


V 


V 


34 


00042 


V. 


w 


98 


00142 


w 


w 


35 


00043 


X 


X 


99 


00143 


X 


X 


36 


00044 


y 


y 


100 


00144 


Y 


Y 


37 


00045 


z 


z 


101 


00145 


"? 


z 


38 


00046 


1 


1 


102 


00146 




II 


39 


00047 






103 


00147 


10 


E 


40 


00050 


": 


• 
• 


io4 


00150 


/ ! 


/ 


4i 


00051 


. 


• 


1 105 


00151 


> 


» 


42 


00052 


D 


NOP 


106 


00152 


" 


NOP 


43 


00053 


NOP 


NOP 


107 


00153 


NOP 


NOP 


44 


00054 


NOP 


NOP 


108 


00154 


NOP 


NOP 


45 


00055 


NOP 


NOP 


109 


00155 


NOP 


NOP 


46 


00056 


NOP 


NOP 


110 


00156 


NOP 


NOP 


47 


00057 


NOP 


NOP 


111 


00157 


NOP 


NOP 


©48 


00060 


delay 


S.F.O.M. 


112 


00160 


tab 


tab 


49 


00061 


NOP 


NOP 


113 


00161 


NOP 


NOP 


50 


00062 


black 


NOP 


114 


00162 


red 


NOP 


51 


00063 


NOP 


NOP 


U5 


00163 


NOP 


NOP 


52 


00064 


NOP 


NOP 


116 


00164 


NOP 


NOP 


53 


00065 


NOP 


NOP 


117 


00165 


NOP 


NOP 


54 


00066 


NOP 


NOP 


118 


00166 


NOP 


NOP 


55 


00067 


NOP 


NOP 


119 


00167 


NOP 


NOP 


56 


00070 


space 


space 


120 


00170 


backs p. 


backspace 


57 


00071 


clr tab 


NOP 


121 


00171 


set tab 


NOP 


58 


00072 


clr all 


NOP 


122 


00172 


NOP 


NOP 


59 


00073 


NOP 


NOP 


123 


00173 


NOP 


NOP 


60 


00074 


KID 


index 


124 


00174 


HLU 


NOP 


1 6i 


00075 


NOP 


NOP 


125 


00175 


NOP 


NOP 


62 


00076 




* 


126 


00176 


<i> 


$ 


, 63 


00077 


LF/CR 


LF/CR 


127 


00177 


erase 


NOP 


8191 


17777 


special 


L character us 


ed as the 


2 terminato] 


c for PTMSS 



This assignment is made in order to have a character which will set the 
typewriter for output mode without affecting paper tape output. 
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****** TYPEWRITER OR PAPER-TAPE OUTPUT SYSTEM { J6-TGPS-01-UI-AL J 



»** NUMBER L J PUNCH-TYPE ALTERNATOR 



PTEMP 
PTC ON 



a 


hj CQ 


a 


& 


SB 


CD 


SB 


SB 


CR5 


O 


c+ 


3 


CD 


c+ 


CD 


0*5 


.•■ 


H- 


• • 


(D 




O 




• • 




P 




ro m 


COM 




Ch 


• 
4=~ 


H 




O 


i 


H 




Hj 


ON 


-P- 




U) 


1 


CT\ 




vo 


1-3 
O 

3 


-P- 



PTA 



ENTRY 

BSS 

OECQ 

OECQ 

DECQ 

OECQ 

OECQ 

DECQ 

OECQ 

OECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

SFR 

ASN 

CAM 

JNM 

CRM 

JNM 

SFR 

CRN 

CAM 

ANN 

LFR 




- — — — w ■-■—-—■—-» * 

1280 t t tttit 

512,,,,,, 4256, 

4.PTEMP 

28 

2 

2»PTA1 

2,12 

2.PTA2 

7.PTEMP+1 

lf2 

.31 
7.PTC0N 



FREE F4 
READ SR34 

BYPASS OUTPUT 

PUNCH MODE 

FREE F7 

FETCH PROPER WORD 



OF PTCON 





TOPS 


1 




TOPS 


2 


01234567 


TOPS 


3 


89+-ABCD 


TOPS 


4 


EFGHIJKL 


TOPS 


5 


MNOPQRST 


TOPS 


6 


UVWXYZ* 


TOPS 


7 


m 


TOPS 


8 




TOPS 


9 


* , 


TOPS 


10 


) 


TOPS 


11 


(= ABCD 


TOPS 


12 


EFGHIJKL 


TOPS 


13 


MNOPQRST 


TOPS 


14 


UVWXYZ E 


TOPS 


15 


/. 


TOPS 


16 




TOPS 


17 


$ 


TOPS 


18 




TOPS 


19 




TOPS 


20 




TOPS 


21 




TOPS 


22 




TOPS 


23 




TOPS 


24 




TOPS 


25 




TOPS 


26 




TOPS 


27 




TOPS 


28 




TOPS 


29 



o hd co a 


t? go 


fl) P 


fo era 


O c+ 


ts n> 


c+ <T> 


(K) •• 


(-■• .. 


fl> 


O 


• • 


P 




•" 


ro h 


03 H 


-j 


• M 




-£-\ 


o 


I H 


Hj 


<^H -F- 




CTW. 


U) 


1 Ov 


vo 


1-3 -P- 




O 




►t! 




CQ 



PTA1 

PTA2 



ORB 
ATN 
SSR 
LFR 
LFR 
JLH 
ATN 
SSR 
TRA 
SO 



HI 

Hi 2 

6 

7*PTEHP*i 

4,PTEHP 

H3 

HI 

PTAl 



*»» 



PTEHP1 
PTHSS 



PTHSSi 
PTHSS2 

PTH5S3 
PTHSS4 



NUMBER 21 PUNCH OR 

ENTRY PTHSS 

BSS 2 

SFR 4,PTENP1 

SFR 7»PTEHPl*l 

CAH ,H1 

CAM 1,48 

CNH 2 

TRA PTHSS3 

CSH 2,4 

ATN ,i, 

LFR 7 

ORB H2 

CAH I.H12+1 

JZN 1, PTHSS4 

SBH 1,1 

CALL PTA 

CJU 2,PTHSS2 

TRA PTHSSI 

LFR 7.PTEHP1+1 

LFR 4.PTEHP1 

JLH H3 
GO 



TYPE PROPER CHARACTER 



RESTORE F7 

RESTORE F4 

EXIT 

PUNCH CHARACTER 

GO TO EXIT 



TYPE HESSAGE 



FREE F4 

FREE F7 

SAVE ADDRESS 

SET UP SPECIAL CHARACTER 

SET LOOP COUNTER 

ENTER LOOP 

SET LOOP COUNTER 

FETCH WORD AND INCREHENT 

TEST NEXT CHARACTER FOR END 

END OF HESSAGE 

RESTORE CHARACTER 

GO TO OUTPUT CHARACTER 

HORE TO GO IN THIS WORD 

RETURN FOR NEW WORD 

RESTORE F7 

RESTORE F4 

EXIT 



TOPS 


30 


TOPS 


31 


TOPS 


32 


TOPS 


33 


TOPS 


34 


TOPS 


35 


TOPS 


36 


TOPS 


37 


TOPS 


38 


TOPS 


39 


TOPS 


40 


TOPS 


41 


TOPS 


42 


TOPS 


43 


TOPS 


44 


TOPS 


45 


TOPS 


46 


TOPS 


47 


TOPS 


48 


TOPS 


49 


TOPS 


50 


TOPS 


51 


TOPS 


52 


TOPS 


53 


TOPS 


54 


TOPS 


55 


TOPS 


56 


TOPS 


57 


TOPS 


58 


TOPS 


59 


TOPS 


60 


TOPS 


6L 



»** NUMBER 3A) PUNCH OR TYPE QUARTER WORD IN OCTAL 



Q 


hj 


CO 


W 


& 


fD 


CD 


P 


P3 


OS 


O 


c+ 


P 


CD 


c+ 


CD 


OQ 


• • 


H- 


• • 


(D 




O 








P 




ro 


H 


CO (-■ 




CO 


* 

-F=- 


fc^ 




O 


i 


h- 1 




H> 


cA 


4=" 




UJ 


I 


CT\ 




vo 


i-3 
O 


-P- 






CO 







ENTRY 


PTFW*PTFWl, 


P TEMP 2 


BSS 


3. 


PTQW 


SFR 


4,PTEMP2+8 




CAN 


1,43 




TRA 


PTQW5 




CAN 


0,0 


PTQW1 


SFR 


4,PTEMP2 +2 




CAN 


2,63 




TRA 


PTQH4 




CAN 


0*0 


PTQW2 


SFR 


4,PTEMP2+2 




CAM 


2,56 




TRA 


PTQW4 




CAN 


0,0 


PTQW3 


SFR 


4,PTEMP2+2 




CAM 


2,112 


PTQW4 


CAM 


1,48 




CALL 


PTA 




CAM 


1,M2 


PTQW5 


CALL 


PTA 




LDM 


l»PTiHP2+2 




CRN 


1,12 




CAM 


2 




ANN 


2,1 




CAM 


1 




CSM 


,5 




TRA 


PTQW? 



, PTFW3, PTQW, PTQW 1 , PTQW2, PTQW3 

FREE F4 

SET UP SPECIAL CHARACTER 

NEEDED FOR SPACING 

FREE F4 

SET UP • i LF/CR i « 

NEEDED FOR SPACING 

FREE F4 

SET UP ■ 'SPACE* • 

NEEDED FOR SPACING 

FREE F4 

SET UP •■TAB*' 

SET UP SPECIAL CHARACTER 

GO TO OUTPUT CHARACTER 

FETCH NEXT CHARACTER 

GO TO OUTPUT CHARACTER 

FETCH QUARTER-WORD 

LOAD SHIFTED QUARTER-WORD INTO M2 

FETCH SIGN BIT 

SET LOOP COUNTER 

ENTER LOOP \ 



TOPS 


62 


TOPS 


63 


TOPS 


64 


TOPS 


65 


TOPS 


66 


TOPS 


67 


TOPS 


68 


TOPS 


69 


TOPS 


70 


TOPS 


71 


TOPS 


72 


TOPS 


73 


TOPS 


74 


TOPS 


75 


TOPS 


76 


TOPS 


77 


TOPS 


78 


TOPS 


79 


TOPS 


80 


TOPS 


81 


TOPS 


82 


TOPS 


83 


TOPS 


84 


TOPS 


85 


TOPS 


86 


TOPS 


87 


TOPS 


88 



O >TJ 


CO o 


& P> 


CD P3 


P> en 


O c+ 


fl> 


ct CD 


era •• 


H- •• 


CD 


O 


"• 


P 


ro h 


CD H 


vo 


• H 




•p-\ 


o 


I H 


Hi 


Ch -p- 




ON\ 


UJ 


I ON 


VD 


1-3 -P- 




O 




hJ 




CO 



PTQW6 CRM 2,10 

ANN 2,7 

CAM 1 

PTQW7 CALL PTA 

CJU ,PTQW6 

LFR 4,PTEMP2+2 

4LH M3 



SHIFT FOR NEXT CHARACTER 
LOAD CHARACTER INTO Ml 

GO TO OUTPUT CHARACTER 
MORE CHARACTERS 
RESTORE F4 
EXIT 



*«* NUMBER 3B> PUNCH OR TYPE FULL WORD IN OCTAL 



PTFW SFR 4.PTEMP2 

CAM 2 

TRA PTFW4 

PTFWi SFR 4,PTEMP2 

CAM 2*2 

TRA PTFW4 

PTFW2 SFR 4.PTEMP2 

CAM 2,4 

TRA PTFW4 

PTFW3 SFR 4.PTEMP2 

CAM 2,6 

PTFW4 SFR 7,PTEMP2+1 

LFR 7, Ml 

CSM ,4 

PTFW5 ORB MO 

CAM 1,M12 

ATN M2 

CALL PTQW 

CAM 2,4 

CJU ,PTFW5 

LFR 7.PTEMP2+1 

LFR 4.PTEMP2 

JLH H3 
GO 



FREE F4 

SET RELATIVIZER FOR BLANK 

FREE F4 

SET RELATIVIZER FOR 'LF/CR' 

FREE F4 

SET RELATIVIZER FOR 'SPACE* 

FREE F4 

SET RELATIVIZER FOR 'TAB* 

FREE F7 

FETCH WORD 

SET QUARTER-WORO COUNTER 

LOAD PROPER QUARTER-WORD 

GO TO OUTPUT IT 

SET RELATIVIZER FOR 'SPACE' 
MORE QUARTER-WORDS TO GO 
RESTORE F7 
RESTORE F4 
EXIT 



TOPS 


89 


TOPS 


90 


TOPS 


91 


TOPS 


92 


TOPS 


93 


TOPS 


94 


TOPS 


95 


TOPS 


96 


TOPS 


97 


TOPS 


98 


TOPS 


99 


TOPS 


100 


TOPS 


101 


TOPS 


102 


TOPS 


103 


TOPS 


104 


TOPS 


105 


TOPS 


106 


TOPS 


107 


TOPS 


108 


TOPS 


109 


TOPS 


110 


TOPS 


111 


TOPS 


112 


TOPS 


113 


TOPS 


114 


TOPS 


115 


TOPS 


116 


TOPS 


117 


TOPS 


118 


TOPS 


119 



*•» NUMBER 4} PUNCH OR TYPE DECIMAL QUARTER WORD 



O hd 


W fcl 


tf p 


n> pi 


sn m 


O d- 


es (d 


c+ (D 


09 •• 


H- •• 


fl> 


O 


** 


ts 


ro ro 


CDH 


o 


• H 




■i=-\ 


o 


I H 


Hi 


Cn -P- 




GW 


(jo 


I CT\ 


VD 


1-3 -F- 




O 




3 



ENTRY PTDQ»PTD0i,PTDQ2,PTDQ3 

PTEMP3 8SS 3 

PZERO DECQ ,,, 

PTOQ SFR 4»PTEMP3 

CAM 1,48 

TRA PTOQY 

PTDQ1 SFR 4.PTEMP3 

CAM 2,63 

TRA PTOQZ 

PTDQ2 SFR 4.PTEMP3 

CAM 2*56 

TRA PTDQZ 

PT0Q3 SFR 4,PTEMP3 

CAM 2,112 

PTDQZ CAM 1,48 

CALL PTA 

CAM 1,M2 

PTDQY CALL PTA 

SFR 7.PTEMP3+1 

LDM 1.PTEMP3 

LFR 7, PZERO 

JPM ItPTOQA 

SBM 1,4100 

JPM 1,PTDQ4 

CAM 12,4 

CAM 14,9 

CAM 15.M1+10 

TRA PTDQK 



SAVE F4 

SET FOR OUTPUT 

SAVE F4 

OUTPUT LF/CR 

CHARACTER 

SAVE F4 

OUTPUT SPACE 

CHARACTER 

SAVE F4 

OUTPUT TAB CHARACTER 

SET FOR OUTPUT FOR 

PREFIX CHARACTERS 

OUTPUT PREFIX CHARACTERS 

SAVE F7 

FETCH QUARTER-WORD IN) 

SET ALL COUNTERS TO ZERO 

H L.T. 4096 

REDUCE H 

N G. T. 4099 

SET 409X TO BE OUTPUT 



TOPS 


120 


TOPS 


121 


TOPS 


122 


TOPS 


123 


TOPS 


124 


TOPS 


125 


TOPS 


126 


TOPS 


127 


TOPS 


128 


TOPS 


129 


TOPS 


130 


TOPS 


131 


TOPS 


132 


TOPS 


133 


TOPS 


134 


TOPS 


135 


TOPS 


136 


TOPS 


137 


TOPS 


138 


TOPS 


139 


TOPS 


140 


TOPS 


141 


TOPS 


142 


TOPS 


143 


TOPS 


144 


TOPS 


145 


TOPS 


146 


TOPS 


147 



o 


P CD 


5? 


£0 


09 


Q 


d- 


P 


n> 


c+ 


(D 


OQ 


•• 


H- 


»• 


(D 




O 




" 




P 




ro 


ro 


CDM 




H 


• 

-f=- 


e 




O 


1 


H 




Hj 




■f 




uo 


i 


cr\ 




VO 


h-3 
O 

S3 


■4=- 



PTDQ4 CAM 12.4 

CAM 13, i 

PTDQA SBM 1,1000 

JNM 1,PTDQB 

CJU 12, PTDQA 

PTDQ8 ADM 1,1000 

PTDQC SBM 1,100 

JNM 1,PT0QD 

CJU 13, PTDQC 

PTDQD ADM 1,100 

PTDQE SBM 1,10 

JNM 1,PTBQF 

CJU 14, PTDQE 

PTDQF ADM 15.MH-10 

SBN 13,10 

CAM 1 

JUM l,PTDQ5 

CAM 13 

CJU 12»PTDQK 

PTDQ5 JUM 12,PTDQK 

CAM 12,56 

JUM 13,PTDQK 

CAM 13,56 

JUM 14.PTDQK 

CAM 14*56 

PTDQK CSM 2,4 

PTDQ6 ORB M2 

CAM 1,M12 

CALL PTA 

CJU 2.PTDQ6 

LFR 7.PTEMP3+1 

LFR 4,PTEHP3 

JLH M3 
60 



CORRECT FOR N 6. T. 4099 

EXTRACT 

THOUSANDS 

DIGIT 

EXTRACT 

HUNDREDS 
DIGIT 

EXTRACT 

TENS 

DIGIT 

EXTRACT UNITS DIGIT 

CORRECT FOR CARRY 



SCAN TO ELIMINATE 
LEADING ZEROS 



SET DIGIT COUNTER 

OUTPUT 

ALL 

DIGITS 

RESTORE F7 
RESTORE F4 
EXIT 



TOPS 


148 


TOPS 


149 


TOPS 


150 


TOPS 


151 


TOPS 


152 


TOPS 


153 


TOPS 


154 


TOPS 


155 


TOPS 


156 


TOPS 


157 


TOPS 


158 


TOPS 


159 


TOPS 


160 


TOPS 


161 


TOPS 


162 


TOPS 


163 


TOPS 


164 


TOPS 


165 


TOPS 


166 


TOPS 


167 


TOPS 


168 


TOPS 


169 


TOPS 


170 


TOPS 


171 


TOPS 


172 


TOPS 


173 


TOPS 


174 


TOPS 


175 


TOPS 


176 


TOPS 


177 


TOPS 


178 


TOPS 


179 


TOPS 


180 


TOPS 


181 



o 


•D 


CO o 


t? 


P 


ft) p 


SB 


tR 


O c+ 


p 


(D 


d- CD 


OQ 


• • 


H- .. 


(D 




O 


■" 




P 


K> 


ro 


CD M 




ro 






o 


l H 




Hj 






OO 


I On 


, 


VO 


1-3 -P- 
O 

CQ 



**« 


NUMBER 5) PUNCH 




ENTRY 


PTFWA 


PTMP2A 


CALL 


PTFW2 


PTFWA 


SFR 


4,PTMP2A 




CALL 


PTDQ1 




CALL 


PTQW2 




LFR 


4,PTMP2A 




TRA 


PTFW2 




GO 




*#* 


NUMBER 6) PUNCH 




ENTRY 


PTSW, PTSWI, 


PTEMP4 


BSS 


3 


PTSWS 


SFR 


4.PTEMP4 




SFR 


5,PTEMP4+l 




SFR 


7,PTEHP4+2 




CAM 


15, Ml 




CAM 


1,48 




CALL 


PTA 




TRA 


PTSW7 


PTSW 


SFR 


4.PTEMP4 




CAM 


1,48 




TRA 


PTSWS 


PTSW1 


SFR 


4,PTEMP4 




CAM 


2,63 




TRA 


PTSW4 


PTSW2 


SFR 


4,PTEMP4 




CAM 


2,56 




TRA 


PTSW4 


PTSW3 


SFR 


4,PTEHP4 




CAM 


2,112 


PTSW4 


CAM 


1,48 



PUNCH OR TYPE FULL WORD IN OCTAL WITH ADDRESS 



NEEDED TO SET UP TRANSFER VECTOR 

FREE F4 

GO TO OUTPUT ADDRESS 

RESTORE F4 

GO TO OUTPUT WORD 



PTSW2.PTSW3, PTSWS 



FREE F4 

FREE F5 

FREE F7 

SAVE EXPONENT 

SET UP SPECIAL CHARACTER 

GO TO OUTPUT CHARACTER 

FREE F4 

SET UP SPECIAL CHARACTER 

FREE F4 

SET UP f LF/CR» 

FREE F4 

SET UP •SPACE* 

FREE F4 

SET UP •TAB* 

SET UP SPECIAL CHARACTER 



TOPS 


182 


TOPS 


183 


TOPS 


184 


TOPS 


185 


TOPS 


186 


TOPS 


187 


TOPS 


188 


TOPS 


189 


TOPS 


190 


TOPS 


191 


TOPS 


192 


TOPS 


193 


TOPS 


194 


TOPS 


195 


TOPS 


196 


TOPS 


197 


TOPS 


198 


TOPS 


199 


TOPS 


200 


TOPS 


201 


TOPS 


202 


TOPS 


203 


TOPS 


204 


TOPS 


205 


TOPS 


206 


TOPS 


207 


TOPS 


208 


TOPS 


209 


TOPS 


210 



d 


hj 


03 O 


& 


P 


CD SB 


p 


CR 


o d- 


p 


(D 


c+ (D 


1 OQ 


■ • 


H- •• 


fl> 




O 


| - 




t! 


* 


ro 

UJ 


00£ 




o 


1 l- 1 




H-b 






UJ 


1 <T\ 


! 


VO 


1-3 -p- 
O 

CD 



CALL 

CAM 

PTSW5 CALL 

SFR 

SFR 

LDM 

LFR 

CAM 

CRN 

CAM 

JNM 

ANM 

TRA 

PTSW6 ORM 

PTSW7 CRM 

ANN 

CAM 

CNM 

CSM 

CSM 

TRA 

PTSW8 CSM 

PTSW9 CRM 

ANN 

CAM 

PTSW10 CALL 

CJU 

CJZ 

CAM 

CJZ 

ANM 

ANN 

ADM 

CRM 



PTA 

l,M2 

PTA 

5,PTEMP4+1 

7.PTEMP4+2 

1,PTEMP4 

5, Ml 

15, M7 

15,7 

14 

14,PTSW6 

15,127 

PTSW7 

15,128 

4,12 

4,1 

1 

12 

13,3 

14,4 

PTSW10 

14,3 

4,9 

4,15 

1 

PTA 

14,PTSW9 

13,PTSW11 

4,M5 

12.PTSW8 

4,1 

6,8190 

4 

4,1 



GO TO OUTPUT CHARACTER 

FETCH NEXT CHARACTER 

GO TO OUTPUT CHARACTER 

FREE F5 

FREE F7 

FETCH ADDRESS 

LOAD WORD 

LOAD EXPONENT 

EXTEND EXPONENT TO 8 BITS 



LOAD SIGN BIT 



SET GROUP COUNTERS 

SET DIGIT COUNTER 
ENTER LOOP 
SET DIGIT COUNTER 
LOAD NEXT DIGIT 



GO TO OUTPUT CHARACTER 

MORE OIGITS TO GO 

3 GROUPS PUNCHED 

LOAD GROUP 2 

1 GROUP PUNCHED 

LOAD GROUP 3 

(8190 ■* 17776} 



TOPS 


211 


TOPS 


212 


TOPS 


213 


TOPS 


214 


TOPS 


215 


TOPS 


216 


TOPS 


217 


TOPS 


218 


TOPS 


219 


TOPS 


220 


TOPS 


221 


TOPS 


222 


TOPS 


223 


TOPS 


224 


TOPS 


225 


TOPS 


226 


TOPS 


227 


TOPS 


228 


TOPS 


229 


TOPS 


230 


TOPS 


231 


TOPS 


232 


TOPS 


233 


TOPS 


234 


TOPS 


235 


TOPS 


236 


TOPS 


237 


TOPS 


238 


TOPS 


239 


TOPS 


240 


TOPS 


241 


TOPS 


242 


TOPS 


243 


TOPS 


244 



o 

S3* 


£» CD 


s? 


P 


OQ 


O 


ct 


P 


CD 


c+ 


fD 


OQ 


• • 


H- 


• • 


<T> 




O 




** 




P 




ru 


ro 


00 H 




-t=- 


4=" 


tr* 




o 


i 


H 




Hj C-i 


■P- 






o\ 


""■'V^ 




OO 


| 


ON 




\£5 


h3 
O 

CQ 


4=" 



ENTER LOOP 
LOAD GROUP 4 
(8064 * 17600 > 



SET DIGIT COUNTER 
LOAD NEXT DIGIT 



GO TO OUTPUT CHARACTER 
MORE DIGITS TO GO 
END SIGNAL SET 
SET HP ■SPACED 
LOAD EXPONENT 

SET DIGIT COUNTER 

ENTER LOOP AND SET END SIGNAL 

RESTORE FT 

RESTORE F5 

RESTORE F4 

EXIT 



*** NUMBER 7) PUNCH OR TYPE SEXADECIMAL WORD WITH ADDRESS 





TRA 


PTSW8 


PTSW11 


ANN 


6,3 




ANN 


7.8064 




ADM 


6 




CRM 


6,2 




CSM 


14,2 


PTSW12 


CRM 


6,9 




ANN 


6,15 




CAM 


1 


PTSW13 


CALL 


PTA 




CJU 


14.PTSW12 




JUM 


13rPTEX5 




CAM 


1,56 




CRN 


15,8 




CAM 


6 




CSM 


14,3 




CJU 


13,PTSW13 


PTEX5 


LFR 


7,PTEMP4*2 




LFR 


5.PTEMP4-H 




LFR 


4,PTEMP4 




JLH 


M3 




GO 





ENTRY PTSWA 



PTMP4A 


CALL 


PTSW2 


PTSWA 


SFR 


4,PTMP4A 




CALL 


PTDQ1 




CALL 


PTQW2 




LFR 


4.PTMP4A 




TRA 


PTSW2 




GO 





NEEDED TO SET UP TRANSFER VECTOR 

FREE F4 

GO TO OUTPUT ADDRESS 

RESTORE F4 

GO TO OUTPUT WORD 



TOPS 


245 


TOPS 


246 


TOPS 


247 


TOPS 


248 


TOPS 


249 


TOPS 


250 


TOPS 


251 


TOPS 


252 


TOPS 


253 


TOPS 


254 


TOPS 


255 


TOPS 


256 


TOPS 


257 


TOPS 


258 


TOPS 


259 


TOPS 


260 


TOPS 


261 


TOPS 


262 


TOPS 


263 


TOPS 


264 


TOPS 


265 


TOPS 


266 


TOPS 


267 


TOPS 


268 


TOPS 


269 


TOPS 


270 


TOPS 


271 


TOPS 


272 


TOPS 


273 


TOPS 


274 



»»« NUMBER 8» PUNCH OR TYPE DECIMAL WORD (WITH VARIATIONS! 



Q 




CQ 

0) 


s? 




era 


o 


d- 


P 


fD 


d- 


ft 


era 


• • 


H- 


• • 


(B 




O 








P 




w 


ro 


00 H 




V/l 


• 


M 




o 


1 


H 




H c-i 


-P- 






a\ 


***«X*. 




CO 


i 


o\ 




VD 


o 


-F- 





ENTRY 


PTDWt PTDWl, 


PTDW2,PTDW3 




ENTRY 


PTFDW, PTFDA 


jPTFOKA 


PTEMP8 


BSS 


15 




PTDW 


SFR 


4,PTEMP8+1 


FREE F4 




CAM 


1,48 


SET UP SPECIAL CHARACTER 




TRA 


PTDW5 






CAN 


0,0 


NEEDED FOR SPACING 


PTDWl 


SFR 


4.PTEMP8+1 


FREE F4 




CAM 


2,63 


SET UP «LF/CR» 




TRA 


PTDW4 






CAN 


0,0 


NEEDED FOR SPACING 


PTDW2 


SFR 


4.PTEMP8+1 


FREE F4 




CAM 


2,56 


SET UP 'SPACE* 




TRA 


PTDW4 






CAN 


0,0 


NEEDED FOR SPACING 


PTDW3 


SFR 


4.PTEMP8+1 


FREE F4 




CAM 


2,112 


SET UP 'TAB* 


PTDW4 


CAM 


1,48 


SET UP SPECIAL CHARACTER 




CALL 


PTA 


GO TO OUTPUT CHARACTER 




CAM 


1,M2 


FETCH NEXT CHARACTER 


PTDW5 


CALL 


PTA 


GO TO OUTPUT CHARACTER 




SFR 


6.PTEMP8 


SAVE F6 




SFR 


7,PTEMP8*5 


SAVE F7 




LDM 


l,PTEMP8+i 


RESTORE Ml 




CSM 


0,4 


SET ENTRY FLAG TO 4 




TRA 


REL6 


PROCEED 


PTFDW 


SFR 


6,PTEMP8 


SAVE F6 




SFR 


7,PTEMP8+5 


SAVE F7 




SFR 


4,PTEMP8+l 


SAVE F4 




CAM 


1,48 


SET FOR 




CALL 


PTA 


OUTPUT MODE 




LDM 


1,PTEMP8+1 


RESTORE Ml 



TOPS 


275 


TOPS 


276 


TOPS 


277 


TOPS 


278 


TOPS 


279 


TOPS 


280 


TOPS 


281 


TOPS 


282 


TOPS 


283 


TOPS 


284 


TOPS 


285 


TOPS 


286 


TOPS 


287 


TOPS 


288 


TOPS 


289 


TOPS 


290 


TOPS 


291 


TOPS 


292 


TOPS 


293 


TOPS 


294 


TOPS 


295 


TOPS 


296 


TOPS 


297 


TOPS 


298 


TOPS 


299 


TOPS 


300 


TOPS 


301 


TOPS 


302 


TOPS 


303 


TOPS 


304 


TOPS 


305 


TOPS 


306 



o 


hd 


cq a 


Ef 


p 


fl> 


p 


P 


OQ 


o 


d- 


P 


<D 


c+ 


(D 


en 


• • 


H- 


• • 


a> 




O 




•• 









ro 


IX) 


CD H 




o> 


• 


t^ 




o 


| 


H 




i-b 




-P- 




CO 


1 


CA 




VO 


1-3 
O 

3 


-1=- 





CSM 


0,3 


SET ENTRY FLAG TO 3 


TOPS 307 




TRA 


REL6 


PROCEED 


TOPS 308 


PTFOA 


SFR 


6.PTEHP8 


SAVE F6 


TOPS 309 




SFR 


7,PTEMP8+5 


SAVE F7 


TOPS 310 




SFR 


4,PT£MP8*1 


SAVE F4 


TOPS 311 




CAM 


1,48 


SET FOR 


TOPS 312 




CALL 


PTA 


OUTPUT MODE 


TOPS 313 




LDM 


1,PTEMP8+1 


RESTORE Ml 


TOPS 314 




CSM 


0,2 


SET ENTRY FLAG TO 2 


TOPS 315 




TRA 


REL6 


PROCEED 


TOPS 316 


PTFDWA 


SFR 


6.PTEMP8 


SAVE F6 


TOPS 317 




SFR 


7.PTEMP8+5 


SAVE F7 


TOPS 318 




LFR 


6, Ml 


LOAD PARAMETER WORD 


TOPS 319 




SFR 


4,PTEHP8+i 


SAVE F4 


TOPS 320 




CAM 


1,48 


SET FOR 


TOPS 321 




CALL 


PTA 


OUTPUT MODE 


TOPS 322 




LOM 


1.PTEMP8+1 


RESTORE Ml 


TOPS 323 




LFR 


4,N1+1 


LOAD 2ND PARAMETER WORD 


TOPS 324 




CAM 


13, Ml 


SAVE SIGN IN M13 


TOPS 325 


REL6 


SFR 


3,PTEMP8+2 


SAVE F3 


TOPS 326 




SFR 


5,PTEMP8*3 


SAVE F5 


TOPS 327 




SFR 


4,PTEMP8*14 


SAVE F4 


TOPS 328 




CAM 


7,PTEMP8+8 


SET TEMP STORE STARTING ADDRESS 


TOPS 329 




CAM 


2 


RESET OV, Z FLAGS 


TOPS 330 




TNGR 


JB3 


OV NOT SET 


TOPS 331 




AOM 


2,4096 


SET OV FLAG 


TOPS 332 


JB3 


TU 


JB4 


Z NOT ON 


TOPS 333 




ADM 


2,1 


SET Z FLAG 


TOPS 334 


JB4 


ATN 
SFR 


7,1, 


SAVE F0=OUT 


TOPS 335 
TOPS 336 




SEX 


M3 


SAVE EXPONENT 


TOPS 337 




ATN 


7,1, 


SAVE Z,OV FLAGS 


TOPS 338 




SFR 


4 


AND EXPONENT 


TOPS 339 




SAM 


7,1, 


SAVE AMOST 


TOPS 340 



O hd 


CQ O 


rr p 


(T) P 


p CR 


O d- 


P (D 


d- (D 


OS •• 


H- .. 


(D 


O 




P 


PS ro 


CDM 


;: -j 


V< 


o 


l H 


Hi 


u -p- 




OY^ 


UJ 


1 ON 


vo 


1-3 -F- 




O 




>"d 




CQ 



SAL 7,1, 

CAD Fl 

SAM M7 

SFR 4.PTEMP8+7 

LFR 4»PTEMP8*14 

ADM 0,1 

JPM 0,REL14 

AOM 0.1 

JZM 0.REL9B 

ADM 0,1 

JZM 0,REL9A 

ADM 0*1 

CAD Mi 

REL98 CAM 8 

TRA REL11B 

REL9A LFR 5, Mi 

SBM 0,1 

CSM 5,M5 

CSM 6,1 

REL9 CAD 4,1, 

CJU 6.REL11A 

CSM 6,6 

RELli SFN 4 

REL11A CSM 8,3 

REL11B CSM 9,13 

CAM 10,13 

SBM 0,1 

CAM 13,10 

CAM 2 

TRA REL15 

REL14 CSM 8,M8 

CSM 9,M9 

REL15 CAM 7 

SFR 2,PTEMP8+4 



SAVE ALEAST 


TOPS 341 


SAVE Fl^IN 


TOPS 342 




TOPS 343 


SAVE OV, Z FLAGS 


TOPS 344 


RESTORE F4 


TOPS 345 


JUMP IF ENTERED 


TOPS 346 


BY PTFDWA 


TOPS 347 


CHECK FOR 


TOPS 348 


PTFDA ENTRY 


TOPS 349 


CHECK FOR 


TOPS 350 


PTFDW ENTRY 


TOPS 351 


RESET FOR CORRECT FORMAT 


TOPS 352 


LOAD WORD FOR PRINTING 


TOPS 353 


SET FOR NO PRECEEDf NG CHARACTER 


TOPS 354 


JUMP FOR PTFDA ENTRY 


TOPS 355 


LOAD PARAMETER WORD 


TOPS 356 


RESET CORRECT FORMAT 


TOPS 357 


SET COUNTER 


TOPS 358 


SET QUAD- =~1 


TOPS 359 


LOAD CURRENT WORD 


TOPS 360 


JUMP ON WORD ON LINE COUNT 


TOPS 361 


SET WORD ON LINE COUNT 


TOPS 362 


SET S=-l 


TOPS 363 


SET S=3 


TOPS 364 


SET N=13 


TOPS 365 


SET K=13 


TOPS 366 


RESET CORRECT FORMULA 


TOPS 367 


SET FOR POSITIVE SIGN •♦• 


TOPS 368 


SUPPRESS LEADING ZEROS 


TOPS 369 


SKIP OVER 


TOPS 370 


RESET ENTRY 


TOPS 371 




TOPS 372 


CLEAR SIGN FLAG 


TOPS 373 


SAVE F2 


TOPS 374 







TZP 


REL17 


JUMP IF AMOST G.T.E. ZERO 






STN 


F3 


SET NUMBER POSITIVE 






CAM 


13,11 


SET FOR MINUS SIGN ■-*• 




REL17 


STR 


F3 


PUT NUMBER IN F3 






JNM 


8 t REL20 


JUMP IF S G.T.E. 1 






JZM 


8.REL21 


JUMP IF S - 






CAH 


1,63 


PRINT 






CALL 


PTA 


LF/CR 






TRA 


REL2L 


PROCEED 




REL20 


CAM 


l t 56 


PRINT 






CALL 


PTA 


SPACES 






CJU 


8.REL20 






REL21 


JZM 


0,REL65 


JUMP FOR ENTRY BY PTFDW 






CAM 


11,M10*M9-1 


SET M1=-CN-K+1J 






GAD 


F3 


LOAD NUM8ER IN AMOST 






TZ 


REL32 


JUMP IF NUMBER=0 






CAM 


8 v M9*l 


SET S=l-N 






CAO 


1. 


LOAD 1.0 INTO AMOST 






JZM 


8,REL25 


JUMP IF S*0 




Jl 


MPY 
CJU 


10. 
8,J1 


MPY BY 10*0 




FORM 10»*W-1) 


Q hd CQ tl 
ff P3 (D pa 


REL25 


STR 


F2 


STORE 1Q»*1N-1} 


P (t d-fli 


REL26 


GAD 


F3 


LOAD F3 IN AMOST 


CD O 




DAV 


F2 


ABS{A0^-10»*IN-1HN AMOST 


P 




TZP 


REL29 


ABS(A0)G.T.E. 10«»IN-1I 






CAO 


F3 


FORM 


CD • l_i 
O 1 H 




MPY 


10. 


iOAO 




STR 


F3 


SUBTRACT I FROM EXPONENT 


Hj Ch -P- 




S8M 


10,1 


FOR EVERY MULTIPLICATION 


U3 I o\ 




TRA 


REL26 


RETURN TO TRY AGAIN 


o 


REL29 


CAO 


F2 


10**(N-1HN AMOST 


CQ 




MPY 


10. 








STR 


F2 


10»»N 




REL30 


CAD 


F3 


LOAD F3 IN AMOST 



TOPS 


375 


TOPS 


376 


TOPS 


377 


TOPS 


378 


TOPS 


379 


TOPS 


380 


TOPS 


381 


TOPS 


382 


TOPS 


383 


TOPS 


384 


TOPS 


385 


TOPS 


386 


TOPS 


387 


TOPS 


388 


TOPS 


389 


TOPS 


390 


TOPS 


391 


TOPS 


392 


TOPS 


393 


TOPS 


394 


TOPS 


395 


TOPS 


396 


TOPS 


397 


TOPS 


398 


TOPS 


399 


TOPS 


400 


TOPS 


401 


TOPS 


402 


TOPS 


403 


TOPS 


404 


TOPS 


405 


TOPS 


406 


TOPS 


407 


TOPS 


408 



o 


hj CQ 


o 


S" 


P 


fD 


P 


p 


05 


o 


c+ 


ss 


fl> 


ct 


CD 


OQ 


• • 


H- 


• • 


(D 




O 




*• 




2 




ro 


ro 


00 H 




M3 


V 


< 




o 


l 


H 




Hj C, 


J=- 






CT\ 






oo 


I 


CT\ 




VD H3 


-£- 






o 








hj 








CQ 







DAV 


F2 




TN 


REL33 




GAD 


F3 




DIV 


10. 




STR 


F3 




ADM 


10*1 




TRA 


REL30 


REL32 


CSM 


10,99 


REL33 


TOR 


REL33A 


REL33A 


CAD 


F3 




ADD 


10,3,2048 




SIF 


F2 




TOR 


REL35 




SIF 


F3 


REL35 


CAM 


8,1+M9 




CAO 


1. 




JZM 


8.REL38 


REL36 


MPY 


10* 




CJU 


8,REL36 


REL38 


STR 


F2 




CAM 


8, MO 




CSM 


15,1 




GAD 


F3 


REL40 


CJU 


9.REL40A 




CJU 


2.REL40A 


REL40A 


DIV 


F2 




SIA 


M12 




CJU 


11.REL41 




CJU 


2.REL41 


REL41 


JZM 


12,REL42 




AOM 


2,1 


REL42 


JZM 


2,REL49 




JUM 


7.REL44 




CNM 


M7 



ABS{A0|-10**N 

JUMP IF ABSIA0»L.T.1G*«N 

LOAD F3 IN AMOST 

Df¥ BY 10. 

SAVE IN F3 

INCREASE EXPONENT COUNT 

RETURN 

SET £XP0NENT=-99 IF A0=0 

CLEAR OV 

LOAO F3 INTO AMOST 

ROUND AO AND 

STORE INTEGER FIX POINT IN F2 

JUMP IF G¥ 

STORE INTEGER FIXED PT. IN F3 

SET S=l-N 

LOAO 1 IN AMOST 

JUMP IF S=0 

MPY BY 10,0 

RETURN FOR MORE 

10**N-l TO F2 

TRUE FORMAT IN M8 

SET COUNTER FOR TEST OF 0=10 

LOAD F3 INTO AMOST 

INCREASE M2 AFTER (N-ll 

TIMES THROUGH LOOP 

0= INTEGER PART OF 

AO/f 10»»(N-1) 



JUMP IF D=0 

M14+1 IF D N.E. 

JUMP IF DIGITS SUPPRESSED 

JUMP IF SIGN ALL READY PRINTED 

M7 N.E. 



TOPS 


409 


TOPS 


410 


TOPS 


411 


TOPS 


412 


TOPS 


413 


TOPS 


414 


TOPS 


415 


TOPS 


416 


TOPS 


417 


TOPS 


418 


TOPS 


419 


TOPS 


420 


TOPS 


421 


TOPS 


422 


TOPS 


423 


TOPS 


424 


TOPS 


425 


TOPS 


426 


TOPS 


427 


TOPS 


428 


TOPS 


429 


TOPS 


430 


TOPS 


431 


TOPS 


432 


TOPS 


433 


TOPS 


434 


TOPS 


435 


TOPS 


436 


TOPS 


437 


TOPS 


438 


TOPS 


439 


TOPS 


440 


TOPS 


441 


TOPS 


442 



O hd 


CQ O 


& p> 


(D P3 


{B OQ 


O d- 


i=S (D 


d- (D 


rn •• 


H- .. 


(D 


o 


•• 


p 


fe U> 


OOP 


o 


• .F» 




-F-\ 


o 


1 h- 1 


Hi 


Ch -F- 




<T\ — .. 


U) 


l CT\ 


VO 


H3 -P- 




O 




3 



REL44 



REL45 



REL47 
REL48 



REL49 



REL50 



CAM l,M13 

CALL PTA 

JUM ll,REL45 

CAM 1.41 

CALL PTA 

CJU 15,REL48 

SBM 12, LO 

JUM 12.REL47 

CSM 12,9 

ADM 10,1 

ADM 12,10 

CAM 1.M12 

CALL PTA 

TRA REL50 

LDM 3,PTEMP8+14 

JZM 3,REL50 

CAM 1*56 

CALL PTA 

SFN M12 

CAD 0. 

MPY F2 

ADD F3 

MPY 10. 

STR F3 

JNM 9.REL40 

JZM 0.REL59 

CAM 1,80 

CALL PTA 

CAD 10. 

STR F2 

ATN M10 

CAD 0. 

JPM 10,REL56 

STN F3 



CHARACTER 

JUMP IF POINT ALL READY PRINTED 

OUTPUT 

DECIMAL POINT 

JUMP EXCEPT IN FIRST PART 

JUMP IF N.E. 10 

IF D-10, SET D=l 

AND INCREASE EXPONENT BY 1 

PRINT 

D 

JUMP IF SUPPRESSED LEADING ZEROS 

ARE REPLACED 8Y NOTHING 

OUTPUT 

SPACE 

FORM 

A=10{A-U0**!N-1))D> 



PUT EXPONENT 

INTO AMOST 

JUMP IF EXPONENT POSITIVE 

CHANGE SIGN 



TOPS 


443 


TOPS 


444 


TOPS 


445 


TOPS 


446 


TOPS 


447 


TOPS 


448 


TOPS 


449 


TOPS 


450 


TOPS 


451 


TOPS 


452 


TOPS 


453 


TOPS 


454 


TOPS 


455 


TOPS 


456 


TOPS 


457 


TOPS 


458 


TOPS 


459 


TOPS 


460 


TOPS 


461 


TOPS 


462 


TOPS 


463 


TOPS 


464 


TOPS 


465 


TOPS 


466 


TOPS 


467 


TOPS 


468 


TOPS 


469 


TOPS 


470 


TOPS 


471 


TOPS 


472 


TOPS 


473 


TOPS 


474 


TOPS 


475 


TOPS 


476 



o hj cq a 


& & 


CD £D 


p> cw 


O cl- 


P (D 


ef (D 


OQ •• 


H- .. 


<T> 


O 




ts 


ro<-o 


OOH 


H 


• 1— 




■P"\ 


o 


I H 


Ms 


Ch -P- 




ON\ 


U) 


1 ON 


VD 


H3 -P- 




O 




^ 




CQ 







ATN 


1 


REL56 CAM 


1,10 


CALL 


PTA 


STR 


F3 


CAM 





CSM 


9,2 


CSM 


11,3 


TRA 


REL40 


REL59 LFR 


7,PTEMP8*5 


LFR 


2*PTEMP8+4 


ADM 


8,1 


JPM 


8,R£L62 


CSM 


0,1 


CJU 


5,REL9 


REL62 LFR 


3,PTEMP8*2 


CAM 


1»PTEMP8*8 


CAD 


1,1, 


SAM 


F0 


ATN 


It If 


LFR 


5 


JPM 


6, J85 


CAD 


13. 


DIV 


15,3, 


JB5 CAD 


1,1* 


LAL 


1,1, 


CA£ 


M7 


CRM 


6,1 


JPM 


6,J86 


ADE 


-128 


ADE 


-128 


JS6 ATN 


1,1, 


LFR 


5 


OCTQ 


10727 


LFR 


4,PTEMP8+1 



PRINT •-• 
PRINT •♦• 



CHANGE FORMAT 
SET N=*2 
-{N-K*lJ=-3 

RESTORE F4 
RESTORE F2 
{M8)+l 

RESET CORRECT FORMAT 



SET TEMP STORE STARTING ADDRESS 

RESTORE 

FO=OUT 

FETCH Z,OV FLAGS 

AND EXPONENT 

JUMP IF OV NOT SET 

SET OV 

LOAD AMOST 
LOAD ALEAST 
RESTORE EXPONENT 

JUMP IF Z NOT SET 
SET Z 

RESTORE 
F1=IN 

RESTORE F4 



TOPS 


477 


TOPS 


478 


TOPS 


479 


TOPS 


480 


TOPS 


481 


TOPS 


482 


TOPS 


483 


TOPS 


484 


TOPS 


485 


TOPS 


486 


TOPS 


487 


TOPS 


488 


TOPS 


489 


TOPS 


490 


TOPS 


491 


TOPS 


492 


TOPS 


493 


TOPS 


494 


TOPS 


495 


TOPS 


496 


TOPS 


497 


TOPS 


498 


TOPS 


499 


TOPS 


500 


TOPS 


501 


TOPS 


502 


TOPS 


503 


TOPS 


504 


TOPS 


505 


TOPS 


506 


TOPS 


507 


TOPS 


508 


TOPS 


509 


TOPS 


510 



O i-tf CQ t) 


E3 1 {B 


a> sb 


P CQ 


o ci- 


P CD 


ct- CD 


09 •• 


H- •• 


CO 


o 


•" 


J3 


K? OJ 


CO )-■ 


ro 


• p" 




-T=-\ 


o 


I H 1 


H) 


<^ 4=- 




OW 


OU 


l ON 


VD 


H3 -P- 




O 




s 





LFR 


5.PTEMP8+3 




LFR 


6 V P.TEHP8 




JLH 


M3 


REL65 


CSM 


8.M10 




CAO 


i. 




JZM 


8.REL67 


REL66 


MPY 


10. 




CJU 


8.REL66 


REL67 


MPY 


F3 




STR 


F3 


REL68 


CAM 


8 V M9 




CAO 


1. 


J2 


MPY 


10. 




CJU 


8,J2 




SUB 


F3 




TP 


REL71 




SBM 


9,1 




TRA 


REL68 


REL71 


CAM 


ii,M9+MtO-l 




TRA 


REL33 




F£L 






60 




»»# 


NUMBER 91 PUHCH 




ENTRY 


PTDWA 


PTMP8A 


CALL 


PT0W2 


PTDWA 


SFR 


4iPTMP8A 




CALL 


PTOQ1 




CALL 


PTQH2 




LFR 


4,PTMP8A 




TRA 


PT0W2 




GO 





RESTORE F5 
RESTORE F6 
RETURN 
CM81*-K 



{L0**KJA0 
(M8)=-N 

{10*»N)-tl0«*K)A0 
N=N-H 



PUNCH OR TYPE DECIMAL WORD WITH ADDRESS 



NEEDED TO SET UP TRANSFER VECTOR 

FREE F4 

GO TO OUTPUT ADDRESS 



TOPS 


511 


TOPS 


512 


TOPS 


513 


TOPS 


514 


TOPS 


515 


TOPS 


516 


TOPS 


517 


TOPS 


518 


TOPS 


519 


TOPS 


520 


TOPS 


521 


TOPS 


522 


TOPS 


523 


TOPS 


524 


TOPS 


525 


TOPS 


526 


TOPS 


527 


TOPS 


528 


TOPS 


529 


TOPS 


530 


TOPS 


531 


TOPS 


532 



RESTORE F4 

GO TO OUTPUT HORD 



TOPS 


533 


TOPS 


534 


TOPS 


535 


TOPS 


536 


TOPS 


537 


TOPS 


538 


TOPS 


539 


TOPS 


540 



O i-d CQ t) 


P* £B 


a> pa 


SB OQ 


O d- 


P (D 


c+ fD 


TO •• 


H- •• 


(D 


O 


•• 


P 


l\3 U) 


00 H 


(JO 


• H 




-£-\. 


o 


1 H 


Hj 


Ch -P- 




OW 


OJ 


1 ON 


VD 


1-3 -F- 




O 




Hd 




CO 



»*» 


NUMBER 10) MEMORY 




ENTRY 


PTMOF 


PTMP6A 


BSS 


1 




CALL 


PTFWi 


PTMDF 


SFR 


4.PTMP6A 




CAM 


,PTMP6A+1 




CALL 


PTMDX 




GO 




**» 


NUMBER 11 J MEMORY 




ENTRY 


PTMDFA 


PTMP6B 


BSS 


1 




CALL 


PTFWA 


PTMOFA 


SFR 


4.PTMP6B 




CAM 


,PTMP6B+1 




CALL 


PTMDX 




GO 




»** 


NUMBER 12) MEMORY 




ENTRY 


PTMDS 


PTMP6C 


BSS 


1 




CALL 


PTSW1 


PTMOS 


SFR 


4.PTMP6C 




CAM 


.PTMP6C+1 




CALL 


PTMDX 




GO 




»»» 


NUMBER 13) MEMORY 




ENTRY 


PTMDSA 


PTMP6D 


BSS 


1 




CALL 


PTSWA 


PTMDSA 


SFR 


4.PTMP6D 




CAM 


,PTNP6D*1 




CALL 


PTMDX 




GO 





FREE F4 

LOAD LOCATION OF JUMP INSTRUCTION 



DUMP CONTROL FOR FULL WORD OCTAL 

TOPS 541 

TOPS 542 

TOPS 543 

FREE F4 TOPS 544 

LOAD LOCATION OF JUMP INSTRUCTION TOPS 545 

TOPS 546 
TOPS 547 

DUMP CONTROL FOR FULL WORD OCTAL WITH ADDRESSES 

TOPS 548 
TOPS 549 
TOPS 550 
TOPS 551 
TOPS 552 
TOPS 553 
TOPS 554 

DUMP CONTROL FOR SEXADECIMAL WORD 

TOPS 555 
TOPS 556 
TOPS 55T 
TOPS 558 
TOPS 559 
TOPS 560 
TOPS 561 

DUMP CONTROL FOR SEXADECIMAL WORD WITH ADDRESSES 

TOPS 562 

TOPS 563 

TOPS 564 

FREE F4 TOPS 565 

LOAD LOCATION OF JUMP INSTRUCTION TOPS 566 

TOPS 567 
TOPS 568 



FREE F4 

LOAO LOCATION OF JUMP INSTRUCTION 



o 


^d 


CQ 


fcf 


& 


P 





p 


£» 


CW 


O 


d- 


P 


(D 


d- 


(D 


OS 


• • 


H- 


• « 


fD 




O 





♦ 


LO 


00 H 




-f=- 


-P- 


H 




o 


1 


I- 1 




Hd 




-P- 




00 


1 


C^ 




VO 


H3 
O 


-P- 



PTMP6E 
PTMOD 

*** 
PTMP6F 
PTMDDA 

»*# 

PTEHP6 
PTMDX 



PTMDX 1 



NUMBER 
ENTRY 
BSS 
CALL 
SFR 
CAM 
CALL 
GO 

- NUMBER 
ENTRY 
BSS 
CALL 
SFR 
CAM 
CALL 
GO 

NUMBER 
ENTRY 
BSS 
SFR 
LFR 
SFR 
LDM 
LDM 
CSM 
FIL 
JSB 
FIL 
ADM 
CJU 
LFR 
LFR 
JLH 
GO 



14* MEMORY 
PTMOD 
1 

PTDW1 
4.PTMP6E 
.PTMP6E+L 
PTMDX 

15) MEMORY 
PTMDDA 
i 

PTDWA 
4,PTMP6F 
tPTMP6F+l 
PTMDX 

16* PUNCH 
PTMDX 
1 

5,PTEMP6 
5, MO 

5.PTMDX1 
2, Ml 
I, Ml 
2.M2-M1+1 

3, PTMDX 

1.1 

2 t PTMDX 1 
5.PTEMP6 
4.M0-1 
M3 



DUMP CONTROL FOR DECIMAL WORD 



FREE F4 

LOAD LOCATION OF JUMP INSTRUCTION 



DUMP CONTROL FOR DECIMAL WORD WITH ADDRESSES 



FREE F4 

LOAD LOCATION OF JUMP INSTRUCTION 

OR TYPE MEMORY DUMP 



FREE F5 

FETCH JUMP INSTRUCTION 

STORE JUMP INSTRUCTION 

FETCH L.W.A. 

FETCH F.W.A. 

SET WORD COUNTER 

(JUMP TO PROPER SUBROUTINE 
IS STORED HERE J 
INCREMENT WORD COUNT 
MORE WORDS TO BE DUMPED 
RESTORE F5 
RESTORE F4 
EXIT 



TOPS 


569 


TOPS 


570 


TOPS 


571 


TOPS 


572 


TOPS 


573 


TOPS 


574 


TOPS 


575 


TOPS 


576 


TOPS 


577 


TOPS 


578 


TOPS 


579 


TOPS 


580 


TOPS 


581 


TOPS 


582 


TOPS 


583 


TOPS 


584 


TOPS 


585 


TOPS 


586 


TOPS 


587 


TOPS 


588 


TOPS 


589 


TOPS 


590 


TOPS 


591 


TOPS 


592 


TOPS 


593 


TOPS 


594 


TOPS 


595 


TOPS 


596 


TOPS 


597 


TOPS 


598 


TOPS 


599 



o 


hj co o 


t? 


fo 


CD 


P 




OQ 


O 


c+ 


p 


ro 


c+ 


(D 
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H- 
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<T> 




O 




•• 




P 




r5 


CO 


CD H 




V71 


4=- 


N 
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H 




Ha C_! 


4=- 






ON 


"^V^ 




U) 


I 


ON 




VO 


o 

en 


-P- 



*«« NUMBER 17) FAST REGISTER DUMP CONTROL FOR FULL WORD OCTAL 
ENTRY PTFROO 

2.PTMP7A LOAO LOCATION OF JUMP INSTRUCTION 

0»M3 SAVE LINK 

PTFRO 

PTFW2 



PTFROO CAN 
CAM 
CALL 

PTMP7A CALL 

GO 



»»* NUMBER 18) FAST REGISTER DUMP CONTROL FOR SEXADECIMAL WORD 
ENTRY PTFRDS 

2,PTMP7B LOAD LOCATION OF JUMP INSTRUCTION 

0,M3 SAVE LINK 

PTFRD 

PTSW2 



PTFRDS CAM 
CAM 
CALL 

PTMP7B CALL 
GO 



»»♦ NUMBER 19) FAST REGISTER DUMP CONTROL FOR DECIMAL WORD 
ENTRY PTFRDD 

2.PTMP7C LOAD LOCATION OF JUMP INSTRUCTION 

0»N3 SAVE LINK 

PTFRD 

PTDH2 



PTFRDD CAM 
CAM 
CALL 

PTMP7C CALL 
GO 



*»* NUMBER 20) PUNCH OR TYPE FAST REGISTER DUMP 



ENTRY PTFRD 



PTEHP7 8SS 
PTFRD SFR 
LFR 
SFR 
LFR 
SFR 



7tPTEMP7*5 
7,M2 

7tPTFRDB 
7, Ml 
7 r PTEMP7+2 



FREE F7 

FETCH JUMP INSTRUCTION 
STORE JUMP INSTRUCTION 
FETCH ORIGINAL F4 
STORE ORIGINAL F4 



TOPS 


600 


TOPS 


601 


TOPS 


602 


TOPS 


603 


TOPS 


604 


TOPS 


605 


TOPS 


606 


TOPS 


607 


TOPS 


608 


TOPS 


609 


TOPS 


610 


TOPS 


611 


TOPS 


612 


TOPS 


613 


TOPS 


614 


TOPS 


615 


TOPS 


616 


TOPS 


617 


TOPS 


618 


TOPS 


619 


TOPS 


620 


TOPS 


621 


TOPS 


622 


TOPS 


623 


TOPS 


624 



o 


hd 


CG 


o 


p 1 


S» 


CD 


93 


g 


CR 


O 


c+ 


p 


CD 


ct 


CD 


OQ 
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H- 


• • 


CD 




O 




•' 




P 




ro 


U) 


CO H 




CTs 


• 


H 




O 


i 


H 




Hj 




4=" 




U) 


I 


ON 




vo 


H3 
O 


■P- 



PTFRDA 



PTFR08 



PTFRD2 



CAM 

CAN 

SFR 

SFR 

SFR 

SFR 

SFR 

CAM 

CALL 

CSM 

CAM 

CALL 

CAM 

CALL 

CAM 

CALL 

CAM 

FIL 

JSS 

FIL 

CJU 

LFR 

LFR 

FIL 

TRA 

FIL 

GO 



12 , 2948 

13. MO 

7.PTFRD2 

2 f PTEMP7 

3.PTEMP7+1 

5.PTEMP7+3 

6.PTEMP7+4 

i f 48 

PTA 

0.6 

1,63 

PTA 

1,81 

PTA 

i.MO+8 

PTA 

i,PTEMP7*6*M0 

3.PTFRD 

0.PTFR0A 

4.PTEMP7+2 

7.PTEMP7+5 

M3 



(2948 •= 05604) SET LINK 

STORE LINK 

STORE OTHER FAST REGISTERS 



SET UP SPECIAL CHARACTER 

GO TO OUTPUT CHARACTER 

SET LOOP COUNTER 

SET UP 'LF/CR* 

GO TO OUTPUT IT 

SET UP «F« 

GO TO OUTPUT IT 

SET UP NUMBER OF FAST REGISTER 

GO TO OUTPUT IT 

SET ADDRESS OF FAST REGISTER 

{JUMP TO PROPER SUBROUTINE 

IS STORED HERE) 

MORE TO GO 

RESTORE F4 

RESTORE 

EXIT (LINK IS 
STORED HERE) 



TOPS 


625 


TOPS 


626 


TOPS 


627 


TOPS 


628 


TOPS 


629 


TOPS 


630 


TOPS 


631 


TOPS 


632 


TOPS 


633 


TOPS 


634 


TOPS 


635 


TOPS 


636 


TOPS 


637 


TOPS 


638 


TOPS 


639 


TOPS 


640 


TOPS 


641 


TOPS 


642 


TOPS 


643 


TOPS 


644 


TOPS 


645 


TOPS 


646 


TOPS 


647 


TOPS 


648 


TOPS 


649 


TOPS 


650 


TOPS 


651 



NUMBER 21 i PUNCH OR TYRE ACCUMULATOR DUMP 



9$ 


fD SB 


a OQ 


o c+ 


P (D 


c+ (D 


m •• 


H- «• 


w 


O 


• • 


P 




• ♦ 


ro oo 


CDH 


-<i 


• H 




•p-\ 


o 


i H 


Hj 


<H -P- 




ow 


(JO 


l o\ 


VO 


1-3 -1=- 




O 




hJ 




03 



PTEMP5 
PTAMS1 



PTAMS2 
PTANS3 



PTAMS4 
PTAMS5 
PTACC 



PTACC1 



ENTRY 

BSS 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

DECQ 

SFR 

SFR 

SFR 

SFR 

CAM 

CAM 

CAM 

CAM 

SFR 

TNOR 

ADM 

SRM 

TNOR 

ADM 



PTACC 

10 

63, 76, 78, 78, 96, 88, 96 t 87, 76, 95, 90, 93 

56. 79, 96 ,88 * 91 *63, 76 , 24, 26, 30, 31 , 56 

56,56,8191,, 56, 56, 56,90, 97,56,20, 25 

15,20, 14, 12,31,26, 29, 56, 26, 25, 56, 56 

63,76, 23, 16, 12,30, 31, 56,56,8191,, 

56,56,56, 101, 56, 20,25, 15, 20,1*, 12, 31 

26,29,56,26,25,56,56,56 

63,93,105,80,94,56,56,56,56,8191,, 

56,56,56,90,97,56,30,16,31,56,15,32 

29,20,25,18,56,30,31,26,29,12,18,16 

63, 81,, 11, 90, 32, 31, 56, 56, 8191,, 

63,81,1,11,84,25.56,56,56,8191 



4,PTEMP5*2 

S,PTENP5+3 

6.PTEMP5+4 

7,PTEMP5*5 

8 

9 

10 

1WPTEMP5+6 

0,PTEMP5*1 

PTACC 1 

8,1 

11,1, 

PTACC2 

9,1 



ACCUMULATOR 
DUMP AMOST 
OV IN 
DICATOR ON 
ALEAST 

Z INDICAT 
OR ON 
R,ES 

OV SET DU 
RING STORAGE 
FO-OUT 
Fl-IN 



SAVE F4 
SAVE F5 
SAVE F6 
SAVE F7 
SET FLAGS TO ZERO 



SET BASE ADDRESS OF STORAGE 
SAVE FO 

SET FLAG - OV ON 
SAVE R,ES 

SET FLAG-OV ON AFTER R,ES 



TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 
TOPS 



652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 



o 


*TJ Cfi 


fcf 


if 


p 


CD 


P 


p 


09 


O 


d- 


p 


CD 


c+ 


(D 


(M 


•• 


H- 


■ • 


CD 




O 




** 




P 




rouj oo h 




00 


* 


H 




o 


1 


H 




H> C, 


4=" 






OA 


"""■s^ 




<jU 


I 


ON 




VO I-? 


4=- 






O 








hd 








CQ 





PTACC2 SAM 


11, u 


SAL 


11,1, 


SEX 


15 


TU 


PTACC3 


ADM 


10*1 


PTACC3 CAO 


Fl 


SAM 


Mil 


SFR 


7.PTEMP5 


CAM 


l,PTAMSl 


CALL 


PTMSS 


LFR 


5,PTEMP5*7 


CAM 


i,M15 


CALL 


PTSWS 


CAM 


i,PTAMS2 


JZM 


8.PTACC4 


SBM 


lf5 


CAO 


13. 


OIV 


15,3, 


PTACC4 CALL 


PTMSS 


LFR 


5,PTEMP5+8 


CAM 


1,M15 


CALL 


PTSWS 


CAM 


1.PTAMS3 


JZM 


10.PTACC5 


S8M 


i,5 


PTACC5 CALL 


PTMSS 


CAO 


Ml 1-3 


SAM 


F5 


SEX 


15 


CAM 


0.PTANS4 


JUM 


9.PTACC7 


JUM 


10.PTACC6 


TU 


PTACC8 



SAVE A-MOST 
SAYE A-LEAST 
SAVE EXPONENT 

SET FLA6-Z ON 

SAVE Fl 

SAVE EXPONENT 

LOAD FIRST MESSAGE 

OUTPUT FIRST MESSAGE 



OUTPUT A-MOST 
LOAD SECOND MESSAGE 
•OV ON' FLAG NOT SET 
ADJUST SECOND MESSAGE 
RESET ;flV 

OUTPUT SECOND MESSAGE 



OUTPUT A-LEAST 
LOAD THIRD MESSAGE 
•Z ON«« FLAG NOT SET 
ADJUST THIRD MESSAGE 
OUTPUT THIRD MESSAGE 
FETCH R,ES 



LOAD FOURTH MESSAGE 

••OV ON AFTER -RtES". FLAG SET 

•Z ON* FLAG SET 



TOPS 


680 


TOPS 


681 


TOPS 


682 


TOPS 


683 


TOPS 


684 


TOPS 


685 


TOPS 


686 


TOPS 


687 


TOPS 


688 


TOPS 


689 


TOPS 


690 


TOPS 


691 


TOPS 


692 


TOPS 


693 


TOPS 


694 


TOPS 


695 


TOPS 


696 


TOPS 


697 


TOPS 


698 


TOPS 


699 


TOPS 


700 


TOPS 


701 


TOPS 


702 


TOPS 


703 


TOPS 


704 


TOPS 


705 


TOPS 


706 


TOPS 


707 


TOPS 


708 


TOPS 


709 


TOPS 


710 


TOPS 


711 


TOPS 


712 



9 


Hi CQ O 
p (D JB 


SB 


OS 


a 


ct 


5 


fl) 


c+ 


fl) 


OQ 


• • 


H- 


*• 


(D 




O 




• * 






• • 




•f* 


OO 


CO H 




VD 


• 


H* 




O 


i 


H 




Hi C-i 


^F- 






ON 






UJ 


1 


o\ 




VO 


1-3 
O 


-1=- 



PTACC6 


CAM 


1.M15 


OUTPUT R.ES 




CALL 


PTSWS 






CAM 


1,72 


SET UP QUESTION MARK 




CALL 


PTA 


OUTPUT QUESTION MARK 




TRA 


PTACC9 




PTACC7 


AOM 


15,128 


CORRECT ES 




SBM 


0,6 


ADJUST FOURTH MESSAGE 


PTACC3 


CAM 


1,M15 






CALL 


PTSWS 


OUTPUT R,£S 


PTACC9 


CAM 


It NO 


LOAD PARAMETER 




CALL 


PTMSS 


OUTPUT FOURTH MESSAGE 




CAM ; 


l,PTEMP5*l 






CALL 


PTSW 


OUTPUT FO IN SEXADECIMAL 




CAM 


1.PTAMS5 


LOAD FIFTH MESSAGE 




CALL 


PTMSS 


OUTPUT FIFTH MESSAGE 




CAM 


l,PTENP5*9 






CALL 


PTSW 


OUTPUT Fl IN SEXADECIMAL 




CAD 


PTEMPS+1 


RELOAD FO 




SAM 


PTEMP5*! 






CAD 


PTEMP5+7 


RELOAD A-HOST 




LAL 


PTEMP5+8 


RELOAD A-LEAST 




LFR 


7,PTEMP5 






CAE 


M15 


RELOAD EXPONENT 




JZM 


10 , PTACIO 


ADJUST 




AOE 


-128 


FOR 




ADE 


-128 


UNDERFLOW 


PTAC10 


LFR 


7,PTEMP5*9 






OCTQ 


10737 


RELOAD Fl 




LFR 


5,PTENP5*3 






LFR 


6,PT£MP5*4 






LFR 


7,PTEMP5*5 






LFR 


4#PTEMP5+2 






JLH 


M3 


EXIT 




so 







TOPS 


713 


TOPS 


714 


TOPS 


715 


TOPS 


716 


TOPS 


717 


TOPS 


718 


TOPS 


719 


TOPS 


720 


TOPS 


721 


TOPS 


722 


TOPS 


723 


TOPS 


724 


TOPS 


725 


TOPS 


726 


TOPS 


727 


TOPS 


728 


TOPS 


729 


TOPS 


730 


TOPS 


731 


TOPS 


732 


TOPS 


733 


TOPS 


734 


TOPS 


735 


TOPS 


736 


TOPS 


737 


TOPS 


738 


TOPS 


739 


TOPS 


740 


TOPS 


741 


TOPS 


742 


TOPS 


743 


TOPS 


744 


TOPS 


745 


TOPS 


746 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
KO* I0LIST-OO-UI-AL 



NAME: 
PURPOSE : 



H/<f) List Program 

This program provides the tape blocking and buffering 
necessary for the FORTRAN statements 



and 



READ TAPE 
WRITE TAPE 
BACKSPACE 
REWIND 



END FILE 



TEMPORARY STORAGE: 
NUMBER OF WORDS: 
USE: 



It can be used by other programs, but, due to the nature 
of the FORTRAN statements, it is not an efficient way of 
reading from tapes. 

Accumulator, F0-F3 and the first 256 words of Cj6mMjZ$N. 

76 words 

The program uses a calling sequence identical to that of the 
PRINT/READ/PUNCH program (so that the FORTRAN compiler task 
is identical). 

A CALL is made with the address of an i/O list in ML. This 
list defines the operation and a number of groups of con- 
tiguous memory cells in the following way: 



C M N T 



Format of the i/O List Word 



Programmed by: C. W. Gear 
Approved by: 



X^ 



Date : 
Section* 
Page: 
Change : 



7/20/64 
8.4-KO-I0LIST 
1 of 10 



USE (Continued): The first quarter C of the list is the control word. It 

is split into 2 and 11 hit parts . 



11 



Control Quarter 
The 11-bit group indicates the function to be performed: 






Read 


IOOOq 


Write 


2040 


Rewind 


2050 


Backspace 


2120 


End of File 



The last three are "control operations." In these cases 
the list is one word long and the two-bit group -is ignored. 
For all operations, T is the logical tape unit number. 

For read and write operations, M is the first word of a 
group of length N (< 4095 ) words which are to be transmitted. 
If the first of the top two bits of the control quarter is a 
one, then another list word follows in the next location in 
core, T and the 11 operation bits are ignored in all sub- 
sequent words of the list. 

When the top bit of a control quarter is a zero, the list 
terminates. The CALL on the IJ0LIST program is said to be a 
partial or final CALL accordingly as the second bit of the 
control quarter is a one or a zero. 

A partial CALL means that the next CALL on the Ij^LIST program 
is for the same unit and with the same control. The new list 
is used to add more words to the block of words specified by 
the preceding list. 



Date : 7/20/64 

Section: 8.4-KO-I0LIST 

Page: 2 of 10 
Change : 



USE (Continued) 



METHOD: 



A final CALL causes the "block of words to be output to tape 
(WRITE), or it causes the program to be set so that the 
next READ will start a fresh block from tape. 

Information put on a tape by FORTRAN object program must be 
buffered in records of not more than 256 words. Since a 
block of data may be longer than this, one block may occupy 
several records. To accomplish this the first word of each 
record is a control word with the format : 



Record number with block 



J L 



-256 + number of words 
or if there is another 
block 



The words are placed into a buffer backwards until it is 
full (255 words) and then another record is started. When 
the last word of a block has been placed in the buffer, the 
control word is placed in the next available position and 
a record of n + 1 words is written where n is the number of 
data words in the buffer. 

READing tape is performed by loading the buffer with the 
first block and then copying as many words as desired into 
the cells defined in the list. If the buffer is exhausted 
it is refilled from tape as long as there are records avail- 
able. If the tape block runs out first, a message is printed, 
and an exit occurs to SYSERR. Otherwise the tape is moved 
to the correct end of the block. 

BACKSPACE is a slow operation since the tape is backspaced 
one block, read for one block and then backspaced the 
number of blocks specified in the record number quarter of 
the last block. 



Date; 
Section: 
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METHOD (Continued): A control word is used to tell whether the buffer is free or 

not, and if not, which unit is using it. 



00i+00 



8 



00377 8 



Number of records — ' 

in this block 



I 



Unit using 
buffer, 
=$> free 



u End of buffer address 
BUF+1: BUFFER CONTROL WORD 

A control word is also used to remember whether the last 
CALL was partial or final. 



if FINAL CALL,- 
Previous Control 
otherwise 



V_ 



J 



V 

Counters saved from last entry 
if it was a partial CALL 
(partial CALL control) 

BUF 



Use of Modifiers . 

MO is if the program is input mode. 

Ml contains the next list address word. 

M4-M7 contains the current list word, the address in M5 is 
incremented and the count in M6 is decremented. 

M8 is positive during read if there are no more records 
in this block. 

M9 contains the buffer address as the buffer is loaded 
or unloaded. 

M10 contains a count of 255 during write or a count of 
the number of words in a record during READ. It 
determines when a block is full or empty. 

Mil contains the unit number currently in use. 



Date: 
Section: 
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METHOD (Continued): After a partial call, the information in F6 is stored in 

BUF and restored at the next CALL. 



Date: 


7/20/64 


Section: 


8.4-KO-I0LIST 


Page: 


5 of 10 


Change: 





EXIT 



OBEY 



WMT FOR 
UNVT NOT BUSY 




BACKSPACE 
RECORD 



WRITE, 



READ, 
BACKSPACE 



EXIT 



READ 1. 
BLOCK 



BACKSPACE 
10 RECORDS 



BkCK- 



EXIT 



COPY TO OR 
FROM BUFFER 



ERROR 




OUTPUT 
RECORD 



WRITE 



END OF LIST 
PARTIAL 



FIMAL 
CALL 




OR 
EMPTY 



CALL. 



EXIT 



10 LIST 
SUBROUTINE FLOW 
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o 


hJCBH 


C3- 


SB CD 93 


£» 


OQ O d- 


a 


(I d- (t 


m 


.. p. .. 


a> 


O 


•• 


ES 




-J OO^J 




o Vro 




M3 1 o 




K\ 




H O ON 




O l -p- 




H 




-». 




tr 1 




M 




CO 




1-3 





ENTRY 


I0L1ST 


REAO 


EQUS 





WRITE 


EQUS 


512 


BCKSPR 


EQUS 


1084 


WAIT 


EQUS 


256 


in. I ST 


SER 


5,T2 




SER 


6,T3 




SFR 


7,T4 




SFR 


4,T1 




LER 


6,BUF 




ATN 


1,1, 




LER 


5 




JUM 


8.I0L18 




CAM 


8.M4 




ORM 


8,4096 




GAM 


11, M7 




LFR 


7.BUF+1 




CAM 


13 




SER 


7,8UF*l 




CRN 


4,11 




CAM 


12 




JPM 


12.I0L4 




ANN 


4*2047 




CAM 


12 




CAM 


15, M7+ 1024 




SFR 


7,IOL2 




CALL 


SYSAUX 


I0L2 


8SS 


1 




SBM 


12, BCKSPR 




JUM 


12,IOL20 




CAM 


4, 1024 




CAM 


6,1 



SAVE F4-E7 



LOAD BUF 



L0A0 FIRST CONTROL WORD 
SECONDARY ENTRY JUMP 
SET CONTROL AND 
UNIT IN BUE e AND BUF«3 



RECORD COUNT = 



NOT CONTROL 



CONTROL CODE 
TAPE UNIT NUMBER 



NOT BACKSPACE, EXIT 



o 


hi 


02 


u 


B" 


TO 


O 


d- 


ts 


n> 


<+ 


(D 


OQ 


a. 


H" 


• ■ 


fD 




O 








13 






00 OD^J 




o 


-p- ro 




Hj 


i 


O 




H 


o 


CT\ 




O 


CD 
H3 


•F- 



IGL4 


ANN 


8,512 




CAN 







CAM 


10, -l" 




JZM 


G,tOL6A 


IQL13 


CAM 


10,-256 


I0L6A 


LFR 


7,8UF*l 




JZM 


15,IOL3+i 




SFR 


7,IOL3 




CAM 


15 




CALL 


SYSAUX 


10L3 


8SS 


1 




AOM 


13,1 




SFR 


7»BUF+1 




CAM 


9,M14 


I0L6 


AOM 


6,-1 




JNM 


6,I0L8 




CJZ 


10, I 0L IDA 




JZM 


OtIOLT 




CAD 


5,1, 




SAM 


M9 


I0L5 


SBM ; 


9,1 




TRA 


I0L6 




FIL 




I0L7 


CAO 


M9 




SAM 


5,1, 




TRA 


I0L5 


I0LS 


JPM 


4, I0L9 




ATN 


1 9 1 9 




LFR 


5 




TRA 


I0L6 


10L9 


CRN 


4,12 




CAM 


12 




JPM 


12, 1 OH OB 




ORM 


8,2048 


IQL12 


SFR 


6,8UF 



M0=0 MEANS INPUT 

BLOCK COUNT EMPTY FOR INPUT 

INPUT 

BLOCK EMPTY FOR OUTPUT 

BUFFER FREE 



WAIT FOR UNIT NOT BUSY 
INCREASE RECORD COUNT 



WORD COUNT DECREASED 
TEST FOR EMPTY 
BUFFER EXHAUSTED 
TEST INPUT 

MOVE TO BUFFER 
BUFFER COUNT 



MOVE FROM BUFFER 



JUMP IF LAST CONTROL 
NEXT CONTROL TO F5 



JUMP IF FINAL CONTROL 
RESTORE BUF 



o 


hj to o 

S» CD £D 


tr 




OQ O c+ 


p 


(t> c+ CD 


m 


.. H- •» 


CD 


O 


a • 







VO Oo^-J 




o V-ro 




Ht) 1 O 




W^ 




H O ON 




O l -t=" 




M 




tS*. 




tr 1 




M 




CO 




K3 



LFR 
LFR 
LFR 
LFR 
JLH 

IOL10B JUM 
JPM 

IOL 14 JPH 
LFR 
CAM 
SFR 
CALL 

10L15 OECQ 
CAN 
SFR 
CALL 

IOL 16 ass 

CRN 
CAM 
JNM 
CAM 
LFR 
ORM 
JZM 
ANM 
ADM 
IOL 17 AOM 
AOM 
CAM 
TRA 
IOL 10 A JZM 
IOL 10 LFR 
CAM 
SFR 
CAM 



4,Tl 

5.T2 

6.T3 

7»T4 

M3 

G.IOL10 

8.IOL20 

8, I0LERR 

7.I0L15 

15.M11+1024 

7.I0L15 

SYSAUX 

READ.RDBF-255 

12, WAIT 

7. I0L16 

SYSAUX 

1 

4«11 

12 

12.I0L21 

9.RDBF-255 

7.N9 

8.4096 

14, IOL 17 

8.4095 

14.1 

6.1 

9.M14+255 

1Q,=256=M14 

I0L6 

0.IOL14 

7,8UF*i 

14.M10 

7.M9 

13, H9 



AND F4-F7 



JUMP IF OUTPUT 

NO BLOCKS LEFT JUMP 

NO BLOCKS LEFT ■- ERROR 



IOLEOF.O 



REAO TAPE 



WAIT UNTIL IN 



BACKSPACE 



MORE BLOCKS TO COME 



RESTORE WORD COUNT 
END OF BUFFER 
SET COUNT 

JUMP IF INPUT 

BUFFER COUNT 
STORE CONTROL 



o 


hd 


CD O 


& 


s> 


Q f» 


f» 


00 


O c+ 


P 


o 


c+ fl> 


OQ 


OO 


H- •• 


ft 




O 






P 




H 


CD -J 




O 


V ro 




O 


I o 




Hj 


§o^ 




H 


1 -f=- 




O 


H 

H 
CO 



KJLU 



IOL20 
IOL18 

I0L2I 



IOL23 
IGL22 



8UF 



ROBF 
10LERR 



HESS 



CAM 12 , WRITE 

CAM 15,MU*1024 

SFR 7»I0L11 

CALL SYSAUX 

BSS 1 

LFR 7,BUF+1 

CAM 15,M1I+1024 

SFR 7,8UF-U 

ADM 6, I 

JZM 10,I0L13 

CAM 8 

TRA I0L12 

ANN 8.512 

CAN 

TRA I0L6 

LFR 7,RDBF~255 

CSM 1UM13 

LFR 7, I0L22 

CAM 15«M7*1024 

SFR 7»IQL22 

CALL SYSAUX 

DECQ BCKSPR, 0,0,0 

CJU 11,I0L23 

TRA IQL20 

BSS 1 

DECQ HAIT,0 P RDBF P 

ASSIGN T1,T2,T3«T4 

EQUS 255 

CALL SYSIO 

DECQ HRIT£+2„MESS,0,Q 

CALL SYSERR 

CHR 32 v 6READ TAPE LIST TOO LONG 



TAPE CODE 



WRITE ON TAPE 
SET BUSY BUFFER 



SET M8=0 MEANING *INAL ENTRY 



DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA, ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
MO-CMPl-OO-UI-AL 



NAME: 

PURPOSE : 

NUMBER OF WORDS: 

TEMPORARY STORAGE: 



Compare N Words 

Subroutine to compare two lists of N words 

10 

3 words in Cj#MM0N 

FAST REGISTERS CHANGED: None if two lists are identical; Fk if two lists are 

not identical. 

EXECUTION TIME: Variable, depending on the parameter N 

USE: This subroutine is useful mainly for engineering 

purposes. The parameters are specified as follows: 



CAM 1, PARAM 
CALL CMP1 

where PARAM is the address of a full word in memory- 
containing the following parameters: 



Quarter word N 

Quarter word 1 FWA1 

Quarter word 2 FWA2 

Quarter word 3 ERRTRN 



N words in the two lists 

First word address of list 1 

First word address of list 2 

Transfer address if compare 
error 



N lies in the range 



1 < N < 8192 



Programmed by: W. J. Bouknight 
Approved by: 

^^-J"^ 



Date : 


9/22/64 


Section: 


8A-M0-CMP1 


Page : 


1 of 3 


Change : 





USE (CONT'D) 



ERRTRN must be the address of the first quarter of a 
word in memory as control is transferred by a JLH M3 
order. Where an error is detected and control is 
returned to the main program via ERRTRN, Ml and M2 will 
contain the addresses of the two words in question plus 
1. For example, if the word in location 300 does not 
agree with the word in location 500, a return is made 
via ERRTRN with Ml = 301 and M2 = 501. 
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DIGITAL COMPUTER LABORATORY 
UNIVERSITY OF ILLINOIS 
URBANA.,. ILLINOIS 

ILLIAC II LIBRARY PROGRAM 
M2-PRINT-00-UI-AL 
M2-READ-00-UI-AL 
M2-PUNCH-00-UI-AL 



NAME: 

TEMPORARY STORAGE: 

NUMBER OF WORDS: 

FAST REGISTERS CHANGED: 

USE: 
DESCRIPTION: 



PRINT, READ and PUNCH with input output conversion. 

None 

568 words 

Accumulator, FO to F3, and Ml and M3 by the calling 
sequence. 

See Manual, Chapter 5. 

Master Control Logic- -Main Format Scan Control 

This portion of the program reads the format characters, 
sets the proper control words and switches and transfers 
to the parts of the program indicated by the format 
characters. READ, PUNCH or PRINT are each entrances to 
the master control logic. 

If this is the first time READ, PUNCH or PRINT has been 
entered after a "final call," control words and the 
switches in Ml 5 are set (see Fig. 2 for the meaning of 
the Ml 5 switches; also see Figs, k and 5). If this is 
not the first time this routine has been entered a new 
I/O list word is put in F5, see Fig. 1. Parenthesis 
counts are initialized. Up to three nested parenthesis 
are allowed. 

After initializion, the FORMRD routine is called and 
each format character is read, see Fig. 3, for the 
coding of each format character. Numbers, whose meaning 
is not yet defined, are stored in M9 (temporary counter) 



Programmed by: M. Gaer 
Approved by: 
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DESCRIPTION (Continued): until a later format character defines their meaning; 

then they are placed in the proper modifier. See 
Fig. 1 for the complete fast register layout in the 
master logic. The following is a brief description of 
each portion of the program that is "branched to when 
the proper format character is encountered. Blanks in 
the format string are ignored. The switches are kept 
in the low-order bits of M15. They are interrogated by 
doing a CRN15, bit position + 1, putting the result into 
W.k and checking the sign of MUk ML k < => on. 

* -> BSTAR s If this occurs inside a parenthesis, the 
program exits to a format error. If there is still 
more data in the l/O list to be processed, the program 
resets the format string to the last outside left 
parenthesis if there is one, or to the beginning of the 
format string if there are no parentheses. If there is 
no more data at this time, a repeat entry bit is examined 
to determine if a later portion of the program will 
produce more data to be output on this same line, if 
this is an output type. If there is, all of the counts 
are saved and the routine exits to the main program. If 
no repeat entry bit is on in an output type, the routine 
calls FRESET to fill out the rest of the line with 
blanks, prints or punches out the line and exits to the 
main program. For an input type, the routine just 
exits to the main program. 

) -» BRPR : It is first determined whether more repetitions 
are needed; if so the routine starts reading format at 
the previous matching left parenthesis. If no more 
repetitions are required at this level the routine pushes 
up to the next higher parenthesis level unless this 
parenthesis was one too many in which case it takes an 
error exit. The routine then starts processing data at 
this higher parenthesis level. 
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DESCRIPTION (Continued): / ■* BSLSH : FRESET is called to finish this line and 

the next format character is read. 

, -> comma : This will have been encountered while setting 
up previous format instruction and will have terminated 
it. Next character is now read. 

1 - 10 -> BSUB2 and BSUB : BSUB2 and BSUB are two 
entrances to a subroutine of the master logic which 
constructs a number from a decimally-represented integer 
until it reaches a character which terminates the con- 
struction. This routine is sometimes entered auto- 
matically when the previous format character implies 
that the next character should be a digit. Since an 
integer can be replaced by the letter N, this must be 
checked for first. If N is encountered, the integer 
portion of the current word in the i/o data block is 
used to fill out the format specification. Since zero 
has a BCD code of 10, this must be treated as a special 
case. If N was encountered, a short subroutine BINC is 
now called to move the l/o data list word address to 
the next full word boundary. BSUB2 (BSUB) now returns 
to the return address in control logic previously placed 
in MO. 

(if a plus or minus had been encountered immediately 
before a digit and no other format character was 
associated previously with this digit, the routine now 
assumes that this integer is to be used for scaling and 
proceeds accordingly, ) 

S -* BS s This character indicates blanks are to be input 



or output. BSUB, see above, is called to determine how 
many blanks are required. The character terminating 
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DESCRIPTION (Continued): the S format is saved. If this is an output type 

blanks are output from M8, FLDBF is used; otherwise 
FRDBF is used to read in blanks. 

X -» BX : This is the same as an S-type format, except 
the count has already been read in. This routine is 
now set up as an S type and the S routine is used. 

F, I, E -> BEF s This routine first sets switches for E 
or F type and whether leading plus signs are to be 
printed. Whether or not the number is to be double - 
precision is also determined. The integer up to the 
decimal point is now constructed using BSUB; this will 
be the total field length of the number to be input or 
output. The number following the decimal point 
indicates the number of decimal digits to be input or 
output. The scaling factor has already been set. If 
this is an output type, FDP is called as many times as 
required to print or punch the decimal numbers as 
indicated. If this is an input type, READEC is called 
to read in the decimal numbers indicated. The next 
format character is then read. 

H -* BH : The number of hollerith characters involved has 
already been determined. If this is an output type, the 
characters immediately following the H in the format 
string are read by FORMRD, and output by FLDBF. If this 
is an input type, the characters following H in the 
format string are replaced by the characters in the input 
buffer. To get the proper location in the format string, 
the format control word, FRCNT, see Fig. 2, is needed. 
If this routine had been entered from the A routine (see 
below), the routine returns to the A routine at BA3; 
otherwise the next format character is read. If this 



Date : 7/16/6U 

Sections 8.4-M2-PRINT 

Page: h of 62 
Change : 



DESCRIPTION (Continued): was an A or C format, the l/O list address and i/o 

count are incremented at BA3 since one A word may over- 
lap into several list words. It is now determined whether 
there are more A characters in t h e current word. If 
there are, the next group of eight or less characters 
is processed as a continuation of the previous group. 
To do this the program branches to BA4 (see below under 
BA). If this word is finished the A field length is 
restored and BAk gets the next data word. If there are 
more A words to be processed, the above is repeated as 
often as necessary. When finished the next format 
character is put in MO. 

A or C -» BA : BSUB is called to get the number of A 
characters desired. FRCNT, the format control word is 
saved because a fake format word will be constructed. 
When the A format is finished, program proceeds from 
where it left off in the format string given by FRCNT. 
BAU is the part of the BA routine which gets the data 
word to be processed by the BA routine. BINC is used 
to move up to the next full word boundary. If the i/o 
block is finished a new i/o block is gotten; otherwise 
the next l/O data word is gotten from the current block. 
A fake Hollerith, H format, is constructed for eight or 
less characters. The A field length is decremented by 
eight, and a marker is set so that the H routine exits 
to BA3 (see above under BH) . The current format word 
in the format string is replaced by the i/o data word 
(for output); otherwise by a blank word which is filled 
by BH from the input buffer. The BH routine is now 
used. When finished FRCNT and the current word in the 
format string are restored. If this is an input type, 
the A word constructed has been stored in the i/o data 
list. 
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DESCRIPTION (Continued): M -> BM : Sets indicator for M, then uses BL. 



D -» BD : Sets indicator for D, then uses BL. 



BQ : Sets indicator for Q, then uses BL. 



L -* BL ; BSUB is used to get the field length of the 
number. The next i/o data word is gotten . The following 
is what occurs for each case separately: 

M input : Character is read from the input buffer 
using FRDBF, blanks are ignored. The characters 
are assembled in M7 as octal characters. Note that 
since the BCD code for zero is 10, must be treated 
differently. When a quarter word is assembled it 
is placed in the i/O list and the item count (number 
of words in block) is decreased. If there are more 
wanted, the above is repeated," otherwise routine 
exits to read the next format character. 

M output : Puts the data block address plus item 
count into M7. The number is now printed in octal. 
Since the first digit of a five-digit octal number 
is binary, it must be converted differently from 
the second through fifth digits. The item comment 
is incremented and process is repeated as often 
as called for. Next format character is then read. 

L input : This is identical to M input except that 
integers are read from the input buffer using READEC, 
the decimal read routine. 

L output : This option is identical to M output 
except that the number is printed in decimal using 
FDP, the decimal print routine. 

D input : Decimal number is read by READEC, and 
stored in proper quarter word of F7, which is then 
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DESCRIPTION (Continued): stored in memory, counts are incremented and the 

process is repeated as often as specified. Next 
format character is then read. 

D output : The data word specified by M5 is put in 
F7. The correct quarter is extracted for printing 
and put in the accumulator. It is then printed in 
decimal using FDP. The quarter word count and the 
item count is incremented. The above process is 
repeated as often as specified. Next format 
character is then read. 

Q input : Identical to D input except that character 
is read from buffer using FRDBF and constructed as 
an octal number. 

Q output : Identical to D output except that the 
number is printed out octally. If more than five 
characters are printed, leading blanks are supplied. 
If less than five digits are required, the left 
most are suppressed. There is no zero suppression. 

( -» BLPR : BLPR is part of the initialization. The 
pushdown count is incremented unless the count exceeds 
three deep, in which case an error exit is taken. The 
address of this parenthesis is saved as is the number 
of repetitions for this parenthetical expression. The 
next character is then read. 

P ~* BP : The integer scale factor has already been read. 
If scale factor is negative, this is indicated and it 
is stored as a positive number. The next character is 
then read. 
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DESCRIPTION (Continued): + -> BFLUS (- enters inside BPLUS) : If a sign has 

already been encountered an error exit is taken. 
Otherwise plus or minus is indicated. The next format 
character is then read. 



FBACK 

If the format string is exhausted but data still remains 
to be processed, this subroutine returns to the format 
specification starting at the last outside left 
parenthesis, and if there is no parenthesis, it returns 
to the beginning of the format list. The remaining data 
is processed accordingly. 

Fk and F7 are saved and the above format address is in 
M13. This specifies the format word to which we wish 
to return. This word is put into F7„ The control 
word, FRCNT, Fig. K, is put into Yk, where the format 
counter will be reset to this new starting point. The 
proper format character is found and the running counts 
and switches are reset. The counts are saved and F^ 
and F7 are restored. 

F0RMRD 

This subroutine reads the next format character. Format 
characters are packed two to a quarter word and the 
main purpose of this routine is to extract the proper 
quarter word and keep a running count of where we are 
in the format string. Counts are kept in FRCNT, cf., 
Fig. ko 

Yk and F7 are saved. Fk is loaded with FRCNT, and F7 
with the current format word, specified in M3. All the 
information necessary to pick up the correct character 
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DESCRIPTION (Continued): is kept in FRCNT. The character is extracted, put into 

M8, the counts are incremented, FRCNT is saved and Fk 
and F7 are restored. 



FLDBF 

FLDBF is the subroutine used to fill the output buffer 
character by character „ 

A buffer preparation word, FBFWD, is put in F7» This 
word is filled two characters to a quarter word, one 
character being added by each pass through this sub- 
routine o When FBFWD is filled it is placed in its 
proper position in the output buffer, 

F5 contains the control word, FCNTS, which keeps the 
running count of what is to be filled next, cf„, Fig, 5» 

To put each character into FBFWD, the proper quarter 
word is first determined and then which half of the 
quarter word is to be filled. When FBFWD is filled it 
is placed in the output buffer, then restored to blanks, 
i„e„, zeros. 

If too many characters are to be put in the buffer, an 
error exit is taken. 

After each pass, FEFWD and FCKTS are saved. 



FRDBF 

FRDBF is the subroutine used to read the next character 
from a card, the card already being in the input buffer. 

The control word FCNTSC (cf,, Fig, 6) with the running 
counts is put into F5. M5 is now used to pick up the 
correct word of the input buffer and put it into F7, 
If too many characters have been called for an error 
exit is taken. 
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DESCRIPTION (Continued): Since characters are packed two per quarter word, the 

correct quarter word and then the correct half of the 
quarter word is determined, the character extracted 
and put into M8. Counts are then incremented and FCNTSC 
is saved. 



FEE SET 

FRESET is the subroutine used to output a line or card 
or read a card. The switches set in ML 5 determine which 
option is to be taken, SYSI0 is the subroutine used 
for input and output. 

If input ; SYSI0 is called to read a card into the 
input buffer INPBF. The input control word FCNTSC is 
reset and saved, cf„, Fig. 6. 

If output : Output control word FCNTS, cf ., Fig. 5, is 
put in F5, and the buffer preparation word FBFWD is put 
in F7. If the buffer is not completely filled already, 
it is filled out with blanks. If a line is to be 
printed, SYSI$ is called for printing. FCNTS is reset 
(- 133 total character count) and FBFWD is zeroed. 
FCNTS and FBFWD are saved. Punching is the same, except 
that SYSIJ^ is called for punching, and the total 
character count is set to -80. 



KSADEC 

READEC is a subroutine which reads in decimal numbers 
and converts them to the proper octal representation. 
It makes use of two other subroutines- -FRDBF, the read 
buffer subroutine which brings in characters one at a 
time from the input buffer, and FEXP, which provides 
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DESCRIPTION (Continued): the correct normalization and exponent after the rest 

of the number has been assembled. The arithmetic in 
this routine is double precision. 

As each character is brought in, it is tested by a 
series of subtractions to determine whether it is a 
(1) digit, (2) + or - sign, (3) decimal point, (k) E 
for exponent, or (5) a blank. 

Exponents are sometimes indicated only by having plus 
or minus signs occurring in the character sequence, e.g., 
+ .1014-3 + 12 = .1043E + 12. If a sign is not noted 
where one should occur it is assumed to be plus. 
Switches are set to indicate whether the next sign is 
for an exponent, whether a decimal point has been 
encountered, and whether we are assembling the exponent, 
cf., Fig. 7. 

If the character read in is an integer, the previous 
number assembled is multiplied (double precision) by 
ten and the new integer is added to it. Exponents are 
assembled in the same way only in a modifier. The 
number of integers past a decimal point is combined 
with the exponent to provide the final normalization 
after the entire number has been assembled. Normaliza- 
tion takes place by callaxg FEXP. The completed number 
is in the accumulator in double precision. 



FEXP 

This is a double precision subroutine that makes the 
final normalization in READEC and the initial normaliza- 
tion in FDP. The exponent of 10 is in M4 when FEXP is 
entered and the number being assembled is in the 
accumulator. A table of 10, 10 2 , 10 , 10 , 10 is 
contained in the routine. If the ten's exponent is 
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DESCRIPTION (Continued); positive these powers of ten will be used to multiply 

the number in the accumulator; if the exponent is 
negative, they will be used for division. 

The correct powers of ten are chosen in the following 
way: first 16 is successively subtracted from the 
exponent until the exponent is less than 16. Each time 
such a subtraction was possible the number is multiplied 
(divided) by 10 . When the exponent is less than 16 
it will have a binary representation in Mk of 
0000-1111 corresponding to 10 -10 5 . Right shift of Mk 
puts the low-order bit into the sign bit of F5. If the 
sign bit is negative multiply (divide) by that power of 
of ten; if positive ignore. When this is completed do 
another circular right shift, picking up the next higher 
power of ten in the table and repeat the above. The 
above process Is carried out four times getting all 
powers of ten from to 15. All multiplications and 
divisions are double precision. The normalized number 
is in the accumulator when finished. 



FDF 

This subroutine is used to punch or print double 
precision decimal numbers for the E, F or I formats. 
FDP uses the FEXP subroutine to normalize the numbers. 
The main problem this subroutine has is rounding 
since once a digit is output it can no longer be changed. 
Consecutive nines have to be saved until the proper 
rounding procedure is determined by the numbers fol- 
lowing it. A particularly bad case, for example, is 
9 „ 9999 which may be rounded to 10.0000. However, before 
rounding can take place all the nines have to be 
converted. Also a leading blank space has to be saved 
to make room for the 1, 
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DESCRIPTION (Continued): The following is a description of the modifiers and 

the various sections of the program,, 

Modifier Use 

MO GACVT puts converted digit -9 into MO. 
GAj^UTl moves digit to Mk. 

Ml Set to -^-096 if a blank is being held back 
for possible overflow of F field. Cleared 
if a zero is encountered during the GALD 
section, or when a digit is printed by GAj&JTl. 

M2 Contains N at entry. 

M3 Link. 

M4 Set negative initially, indicating that there 
is no digit being saved. If GALD encounters 
a zero when Ml is negative, Uk is set to 
this zero, thus preserving it for later 
printing. 

It is used to preserve characters other than 
9's for printing when the next non-nine 
character is converted. GA^UT 1 prints this 
character (if it is nonnegative), and, before 
exiting, copies MO + 9, the next non-nine 
character into M4. 

M5 Minus the number of nonzero digits to be 
converted is set in here for counting. 

M6 Is set to =£> no sign 

> =£> plus sign 
< =»> minus sign 

It is reset to when the sign is printed. 
If GALD section prints a point, it precedes 
it with a sign as necessary and clears M6. If 
M6 ^ when GAJ#UT1 is entered, a sign is printed. 
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DESCRIPTION (Continued): 



M7 Is negative if the decimal point is to be 
inhibited. This is an entry parameter and 
is not damaged. 

M8 Used as temporary storage initially to 

construct various counts. Then it is used 
to transmit characters to FLDBF. 

M9 Contains k on entry. Minus the "lead-in" 

count is placed in here for use in GALD. This 
is the number of blanks plus the number of 
zeros which precede the number (-1 if an F 
field). If this count is negative, the field 
is too short and an alternative format of 
E + N • (N - 6) is used if this is legal, 
where N is the input parameter in M2. For F 
fields, -1 is allowed and is changed to 0, but 
it means that there is no spare blank should 
the field be one too long because of rounding. 
If this occurs, the final 9 in the output is 
rounded up to *. 

During GACVT and GA^UTl, M9 carries -1 minus 
the number of consecutive 9 digits encountered. 

M10 Is set to Blank (0) initially. GALD prints 
this character. When a point is printed, it 
is changed to zero (10), thus giving zero 
suppression in front of the point. It is 
set to 9 for use by GAj^UTl which prints -M9 - 1 
characters from M10 after printing M4. When 
the last digit has been converted, rounding 
may increase the number; in this case M10 is 
changed to zero (10). 
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DESCRIPTION (Continued): Mil Contains -1 minus the number of digits, zeros 

and blanks which precede the point. GALD and 
GAjZ$UTl automatically insert the point when 
this count reaches 0. 

M12 Contains the scale factor s on entry. E fields 
do not change it, F fields and the decimal 
exponent of A to it, giving in both cases, 
the number of digits in front of the point* 

Ml 3 Holds the exponent of the printed number „ 

Ml 4 Is not used. 

M15 Ifegative for E fields and Ml 5 bit 8 is a one 

if the sign digit is to be printed. This is 
an entry parameter and is not changed. 

Sections of the Program FDP 

First Section . Sets the sign code in M6. Scales 

_rp 

the number in the accumulator by 10 so that it 
is in the range l/lO < A < 1. (it uses FEXP and 
GACVT for this.) 

(Unless rounding increases the number to exactly 1, 
the placement of the number can now be made. To 
avoid finding - 10 _n for any n, rounding is deferred 
until the last digit is corrected. If this should 
change the output from 99 ... 9 to 10 ... 0, the 
following actions must be taken: 

E increase the exponent by 1 and print 

10 ... instead (do not print extra digits). 

move the first digit one place to the left if 
possible. If this is not possible because 
there is no space, print 99 ... 9* instead. 
The lead count is placed in M9, digit count 
in M5 and the point count in Mil. The lead 
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DESCRIPTION (Continued): 



count is the number of blanks and zeros to be 
printed in front of any nonzero digits. It 
is decreased by 1 in the case of F fields if 
possible, to allow for possible overflow by 
rounding. If M5, the number of nonzero digits 
to be printed, is negative, M9 and Mil must 
be reduced correspondingly. The point count 
is the number of blanks, zeros and digits to 
be printed before the point. If either the 
lead-in count or the point count is negative, 
an alternative standard format of 
E + N » (N - 6) is used if N > 6; if N < 6, 
the exit to ERRj^RT is made. 



Subroutines in FDP 

GALD prints the lead zeros and blanks and inserts 
the point and sign if necessary. 

GAjZkJTl is a subroutine that prints the digit saved 
in Mk, if there is one, and the character 
from M10 -M9-1 times. It inserts a point if 
necessary, and prints a sign initially if 
it has not already been printed. If Ml is 
negative on entry, meaning that a space 
has been saved for an F field, this blank 
is printed first. MO+9 is sent to lik and 
M9 is set to -1. 

GACVT multiplies by 10 double precision and puts 

the integer part -9 in MO. If this is zero, 
M9 is decreased by 1 and exit is made to 
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Figure 1. Modifier Layout for Master Control Logic 
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Figure 2. Switches in Ml 5 for Master Control Logic 
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Figure 3- BCD Characters 
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M3 



Return Address 



F5: 



m4 



M5 



M6 



M7 



Exponent in Here 



Last Character 
Read 



Original Return 
Saved When Using 
FRDBF or FEXP 
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Figure 7 = READEC Modifiers 
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REPEAT 
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n> 


m 


• • 


H- 


». 


<v 




o 




" 




13 






UJ 


00 -0 




c\ 


• 


^-^ 






■P- H 




o 


| 


•5^ 




Hj 


iS 


CT\ 




C^ 


i 


f=- 




ra 


W 

M 
3 





XCH 
MPY 
ADD 
ADD 
JZN 
ADM 
TRA 

EXPRT JZN 
CAM 
CAM 

H CRM 
CRM 
ADM 
JOC 
FIL 

ZERO DC TO. 

CON QCTO 



2,3, 

iOo 

2,3, 

10+M8. 

15, X 

1,1 

X 

14, H 

10,1 

14 

4,10 

4,3,2 

4,10+M8 

0»X 



PLUS NEW DIGIT 

AFTER DEC PTo 
INCREMENT DECIMAL COUNT 

IF NO SIGN FOR EXPONENT, SET PLUS 

SET EXPONENT SIGNi IN 

10 X PREVIOUS EXPONENT DIGITS 

ADD NEW DIGIT 



fdp 



GA1 



ASSIGN 

SFR 

SFR 

SFR 

SFR 

CAM 

T2 

STC 

XCH 

TZP 

STN 

SSC 

CAM 

XCH 

STR 

SEX 

CAD 

MPY 



00000s 00000,00000,00000 
00000,00001,00001,00000 
FCGM26,FC0M27,FC0M28,FC0M29 



4, GAT 

5.GAT+1 

6,GAT+2 

7,GAT+3 

6 

GA22A 

F2 

F2 

GA1 

FO 

F2 

6,4096 

F2 

F3 

3 

M3« 

GAT+4 



SAVE FAST REGISTERS 



ZERO 



STORE NUMBER 
POSITIVE 
CHANGE SIGN 

SET NEGATIVE INDICATOR 



EXPONENT • LOG BASE 10 OF 4 



o 


hd 


CQ O 


p 


!» 


s> 


p 


OP 


o d- 


p 


CD 


ct" CD 


m 


■ e 


H- •• 


a 




o 


** 




p 




OJ 


OO— J 




-J 


t H 




o 


1 CT\ 




Hj 


R5 ON 




OA 


I 4=- 




ro 


to 

H 

a 

1-3 





SIA 


8 


=T-1 




CAM 


4,-M8-i 


-T 




CAD 


F2 






ADO 


F3 






CALL 


FEXP 


A*10**l-T) 




STC 


F3 






STR 


F2 


STORE AWAY 




ADO 


F3 






SUB 


GAT+5 






SUB 


GAT+6 


A-l/10 




TZP 


GA2 


POSITIVE OR ZERO 




CAD 


F3 






CALL 


GACVT 


A*10 


6AT1 


BSS 


1 






AGO 


M0*9o 






ADM 


8,-1 


Ti=T-l 




STR 


F3 




GA2 


CAD 


F3 




GA23 


CAM 


1 


SET NO SPARE BLANK 




ANN 


15*16 






ORM 


6 


SET PLUS SIGN OR IGNORE 




JPM 


15,GA8 


F TYPE 




CAM 


13„M8+1~M12 


EXP- T=S 


GA26 


CAM 


8*3 




GA9 


ADM 


8,M9~M2*M12 


LEAD COUNT 




JPM 


7,6A3 


NO POINT 




ADM 


8,1 




GA3 


JZM 


6,GA4 


NO SIGN 




ADM 


8,1 




GA4 


CAM 


U.M8-M12 


POINT COUNT 




CAM 


5,M12+M9 


DIGIT COUNT 




JPM 


5,GA5 


POSITIVE 




SBM 


8?M5 


DECREMENT LEAD COUNT 


GAS 


CSM 


5,M5 






CAM 


9,M8 


-1-LEAD COUNT TO M9 



o 


^ 9? £ 

£» (D £B 


£B 


OQ O c+ 


2 


(D c+ CD 


<K 


.. p. .. 


CD 


O 


** 


P 




OJ 03— J 




00 • "\ 




■4=- H 




O 1 0"\ 




H) S ^"*~- 




ro on 




ON i -p- 




ro hd 




SJ 




H 




tel 




H 





JPM 


9,GA25 




JPM 


11,GA25 




JNM 


15.GA6 




CJZ 


9,GA7 




CAM 


1,4096 


GA6 


CAM 


10 




CAM 


4,4096 


GALD 


CJU 


1WGALD3 




JZM 


6„GALD2 




CAM 


8,32 




JNM 


6 9 GA101 




CAM 


8 9 48 


GALDi 


CALL 


FLDBF 




CAM 


6 


GAL 02 


JPM 


7.GALD5 




CAM 


8,59 




CALL 


FLDBF 


GALD5 


CJZ 


9,GALD6 




CAM 


10 8 10 




JNM 


15 e GALD4 




CAM 


4 




JPM 


UGALD3 




CAM 


1 




TRA 


GAL04 


GAL 03 


CJZ 


9,GALD6 


GAL 04 


CAM 


8,M10 




CALL 


FLDBF 




TRA 


GALD 


GA7 


CAM 


9,-i 




TRA 


GA6 


GAS 


AOM 


12„M8+1 




CAM 


8,-1 




TRA 


GA9 


GALD6 


CAM 


9,-i 




CAM 


10,9 



LEAD COUNT NEGATIVE 
POINT TOO FAR TO LEFT 
E FIELD 

SAVE BLANK FOR F FIELD 
SET SAVED 

LEAD CHARACTER BLANK 
NO DIGIT YET 
NOT TIME FOR POINT 
NO SIGN 
MINUS 
CORRECT 
PLUS 

OUTPUT SIGN 
CLEAR SIGN INDICATOR 
NO POINT 

OUTPUT POINT 

DONE ON LEAD CHARS 

CHARACTER NOW ZERO 

E FIELD 

FIRST DIGIT ZERO 

NO SPARE 

CLEAR SPARE INDICATOR 

DONE ON LEAD CHARACTERS 

OUTPUT LEAD CHARACTER 

LOOP 

NO SPARE IN F FIELD 

Q-S*T 



o 


hd 


w a 


& 


p 


CD SO 


CO 


CR 


O d- 


1=1 


CD 


c+ CD 


OQ 


»8 


H- .. 


CD 




O 


° " 




ts 




uo 


OD-^I 




\Q 


V h 




o 


I On 




Hj 


M ON 




CTn 


I -p- 




W 


S3 
H 





JPM 


5.GA27 


GA10 


CALL 


GACVT 




CJU 


5.GA10 




TRA 


GA18 




vm|bL. 


GAGUTl 




CJU 


5,GA10 




SUB 


10,3,2048 




TN 


GA19 




ADM 


4,1 


GA19 


CALL 


6A0UTI 




jpm 


15»6A17 


GA28 


CAM 


8,53 




CALL 


FLDBF 




CAM 


8,48 




JPM 


13»GA12 




CAM 


8,32 




CSM 


13»M13 


GA12 


CALL 


FLDBF 




CAM 


8 


GA13 


ADM 


13,-10 




JNM 


13,GA14 




CJU 


8,GA13 


GA14 


JUM 


8,GA15 




CAM 


8,10 


GA15 


CALL 


FLDBF 




CAM 


8,M13*10 




JUM 


8,GA16 




CAM 


8,10 


GA16 


CALL 


FLDBF 


6A1? 


LFR 


4, GAT 




LFR 


5,GAT+1 




LFR 


6,GAT*2 




LFR 


7,GAT*3 




JLH 


M3 


6A18 


SUB 


10,3,2048 



F TYPE 



NO DIGITS OUT 
CONVERT FIRST DIGIT 
NINE, SAVE 
DONE WITH DIGITS 
OUTPUT SAVEO DIGITS 

ROUND LAST DIGIT«,oo 

NO ROUNDING NECESSARY 

ROUND 

OUTPUT LAST DIGIT 



OUTPUT E, 



EXPONENT SIGN 



AND EXPONENT DIGITS 



RESTORE FAST REGISTERS 



EXIT 

DO WE ROUND LAST 9 



o 


•t) cq t) 

CD CD S5 


p 


03 


OQ O d- 


S3 


fD c+ CD 


CK5 


.. h- •• 


CD 


O 


" " 


P 




-P" 0O--J 




O • ^-~ 




-P" H 




O 1 ON 




Ha S ^--* 




ro o\ 




ON i -p- 




ro hj 




w 




H 




is! 




1-3 





TN 


GA19 




CAM 


10*10 




JPM 


4»GA20 




JPM 


15*GA21 




ADM 


9,1 




ADM 


13 V 1 


GA22 


CAM 


4 


6A20 


ADM 


4 S 1 




TRA 


GA19 


GA2i 


JPM 


UGA24 




CAM 


1 




TRA 


GA22 


GACVT 


MPY 


10. 




STC 


F3 




XCH 


F2 




MPY 


10o 




ADD 


F3 




ASC 


F2 




XCH 


F2 




TIP 


GCVT9A 




CAD 


15*3, 




STR 


F2 


GCVT9A 


SIA 







SUB 


M0« 




ADM 


0,-9 




JNM 


e M3*i 




JZM 


Q.GCVT8A 




ADD 


1* 




CAM 





GCVT8A 


ADM 


9,-1 




JLH 


M3 


6A0UT1 


SFR 


4,GAT1 




JNM 


WG0UT6 


G0UT7 


JZM 


6.G0UT2 




CAM 


8,32 



NO 

ZERO IN M10 
PREVIOUS NON 9 DIGIT 
F FIELO 

INCREASE EXPONENT 

SET ZERO AS PREVIOUS DIGIT 

ROUND UP 

OUTPUT 10„...0 

NO SPACE SAVED 

USE SPACE FOR 1 

DOUBLE PRECISION MULTIPLY BY 10 



MOST SIGNIFICANT PART IN ACC< 



EXIT 
SAVE F4 
BLANK SAVED 
NO SIGN 

MINUS 



o 


hd 


CQ 


fcf 


B" 


93 


(D 


SB 


cn 


o 


d- 


D 


o> 


rt- 


n> 


OQ 


at 


H- 


• • 


CD 




o 




o a 











-f=-oo-<i 




H 


a 


^■^ 






4=- 


H 




O 


I 


.ON 




Hj 


§ 


o\ 




G\ 


1 


4=- 




ro 


W 
H 

1-3 







JNM 


6, GOUT 1 




CORRECT 




CAM 


8,48 




PLUS 


eouTi 


CALL 


FLOBF 




OUTPUT SIGN 




CAM 


6 




CLEAR SIGN 


GOUT2 


CAM 


S,M4 




SAVE© DIGIT TO M8 




JUM 


8,60UT3 




CODE CORRECT ZERO 




CAM 


8,i0 






GGUT3 


CAM 


4«M10 




REPEAT CHARACTER TO M4 




JNM 


8,GQUT5A 


NO 


FIRST DIGIT 




CALL 


FLOBF 




OUTPUT M8 


G0UT8 


CJU 
JPM 
CAM 


11, GOUTS 
7 v GOUT 5 
8,59 


NOT 


TIME FOR POINT 


G0UT4 


CALL 


FLDBF 




OUTPUT POINT 


GOUTS 


CAM 


8 , M4 




M4 TO OUTPUT REGISTER 




CJU 


9 v GOUT 7 




NOT DONE YET 




CAM 


9,^1 




RESET NINES COUNT 




CAM 


4,M0*9 




NEW DIGIT TO M4 




LFR 


4 P GATl 




RESTOR F4 




JLH 


M3 




EXIT 


GOUT6 


CAM 


8 BLANK 


CLEAR SPARE BLANK INDICATOR 




ADM 


9,-i 








JNM 


IUGGUT4 








CAM 


8, tO 








TRA 


G0UT4 






GOUT 5 A 


JPM 
LFR 
CAM 
SFR 
TRA 


It GOUTS 

4,GAT1 

I 

4,GATt 

GOUTS 






GA22A 


CAM 


8,-iOO 


EXPONENT Of ZERO- IS -99 




STR 


F2 








TRA 


GA23 






6A24 


CAM 

ADM 


0,35 
9,1 




PRINT * BECAUSE NO SPACE 







CALL 


6A0UT1 






TRA 


GA19 




GA25 


CAM 


9,M2*-6 






JNM 


9 S ERR0RT 






CAM 


7,4096 






ORM 


6.32 






CAM 


13 e Ml2 






CAM 


12 






ORM 


15,4096 






TRA 


GA26 




GA27 


4PM 


4*GA3Q 






JNM 


15pGA28 






JPM 


UGA17 






CAM 


1 






CAM 


4 




GA30 


sua 


10* 3 s 2048 






TN 


GA19 






JUM 


5,6A19 






ADM 


4 fi i 






TRA 


GA19 




GAT 


8SS 


4 




FEXP 


OCTQ 
OCTQ 
SFR 


04642s 00465 B 


O ^d CD o 
ts" S» CD SB 
SB (R O c+ 


03 146 « 063 1 4e 
SoFfXPCl 


fjt) .. H- •» 




LFR 


3jFTABL 


(D O 

j5 




JNM 


4 t FEXP9 






STC 


2 p 3 » 


-1=- 00 -J 
ro • \ 
p~ i— 1 


FEXP2 


TRA 
MPY 


FEXP1 

3»3» 


O 1 On 




XCH 


2»3, 


R5 c^ 

On i -P- 

ro hj 




MPY 
ASC 


3o3» 

2#3« 


H 


FBXP1 


SBM 


4,16 


9 




CSM 


5,4 






JPM 


4.FEXP2 



NO ROOM FOR STANOIIRO PRINT 
SET UP STANDARD PRINT 

OF S*0»E*N. IN-6)*: 



DIGIT ALLREADY CONVERTED 
E TYPE, PRINT EXPONENT 
NO SPARE 
CLEAR SPARE 

DIGIT IS ZERO 

NO ROUNDING 

NO ROUNDING TOO SMALL 

ROUND 

TEMPORARY STORAGE 
00522 e 14000 LOG 4 BASE 10 

I 463U 11577*03146*063140 14631* 11551 1/10 
SUBROUTINE TO NORMALIZE DECIMALS NUMBERS 
10 SIXTEENTH INTO F3 
EXPONENT NEGATIVE 
DOUBLE PRECISION MULTIPLY BY 
10 SIXTEENTH 



EXPONENT GREATER THAN 16 





PEXP3 


CRN 


4,1 






JPM 


4.FEXP4 






MPY 


5.FTABL 






STG 


0,3, 






CAD 


1.3, 






HPY 


2,3, 






A00 


0,3. 






SIC 


2, 3, 




FEXP4 


CJU 


5.FEXP3 






ADD 


2,3, 






TRA 


FEXPIO 




FEXP9 


S8M 


4,1 






TRA 


FEXP5 




FEXP6 


DIV 


3,3, 






SRM 


2,3c 






XCH 


2,3, 






DIV 


3,3 P 






ADD 


2, 3, 




FEXP5 


ADM 


4,16 






JNM 


4,FEXP6 






CSN 


5,4 




FEXP7 


CRM 
JNM 
OIV 
SRM 
STR 


4,1 


Date: 
Sectior 
Page: 
Change : 


4.FEXP8 
5,FTABL 

2,3, 
0,3, 


•• 




CAD 


1,3, 


-p- CO — J 

uo • "*-■«, 

•p- H 

O 1 ON 


FEXP8 


VID 
ADD 
CJU 


2,38 
0,3, 
5.FEXP7 


f\5 ON 
ON 1 -P" 

ro >n 

•31 


FEXPIO 


LFR 
JLH 


5.FEXPC1 
«3 




FEXPC1 


BSS 


I 


3 




OCTQ 


G5000, 00000 






OCTQ 


03100,00000 



POWERS OF 10 LESS THAN 16 
PRESENT UN EXPONENT 
DOUBLE PRECISION MULTIPLY BY 
PROPER POWER OF 10 



GET NEXT HIGHER POWER OF 10 



COMPLEMENT EXPONENT 

DOUBLE PRECISION DIVIDE BY 
10 SIXTEENTH 



EXPONENT LESS THAN =16 



-POWER OF 10 GREATER THAN -16 

DOUBLE PRECISION DIVIDE BY 
PROPER POWER OF 10 LESS THAN 16 



,00000,00002 10 
,00000,00004 10 SQUARED 



o 


hd CQ O 

P (D ff 


SB 


TO O c+ 


a 


CD c+ CD 


CR 


.. H- •• 


(D 


O 


* * 


£S 




-P" 00 -J 




•P- • \ 




•P- H 




O 1 ON 




H) S ^~- 




ro on 




ON 1 -P" 




ro hd 




S3 




H 





OCTQ 


04704 9 00000 s 


00000 


,00007 10 FOURTH 




OCTQ 


02765,16040, 


00000 


,00016 10 EIGHTH 


FTABL 


OCTQ 


04341,13623, 


07701 


,00033 10 SIXTEENTH 


READ 


SFR 
LFR 


7,FC0M4 
7,FC0Mi 








JNM 


12,RDl 




REPEAT ENTRY 




SFR 


4,FC0M1 








CAM 


15,512 




SET FOR READ * 




CALL 


FRESET 




READ FIRST CARD 




TRA 


Bl 






R01 


LFR 
SFR 
LFR 
SFR 
ATN 


7,FC0M3 
6,FC0M3 
6,FC0M2 
5,FC0H2 
1,1, 




REPEAT ENTRY START 




LFR 


5 




NEW 1-0 LIST WORD 




LOM 


7.FCOM1 








SFR 


4.FC0M1 








LFR 


4.FT6 








JLH 


M3 






PUNCH 


SFR 
LFR 


7,FC0M4 
7,FC0Mi 








JNN 


12,RD1 




REPEAT ENTRY 




CAM 


12,-80 




COUNT FOR PUNCHED C 




CAM 


13 








CAM 


14,-2 








CAM 


15, M 








TRA 


B2 






PRINT 


SFR 
LFR 


7.FC0M4 
7,FC0H1 








JNM 


12»RDI 




REPEAT ENTRY 




CAM 


12,-133 




COUNT FOR PRINTED C 




CAM 


13*256 








CAM 


14*-= 1 








CAM 


15,2+M 







82 



81 



BLPR 



0>T)B10 




P 8) (D P» 




i» m o d- 




ti <T) c+ CD 




OS -. H- •• 




0) O 




AF2 


.e 


AF3 


■£" OO— J 


AF5 




AF1 


O I CT\ 




H} ^ "*~-^ 




fo ON 




C^ 1 -F" 




ro >n 




fcd 




H 




3 





SFR 4.FC0M1 

CAM 3,M13 

CAM 13,QUTBF 

SFR 7,FCNTS 

CAM 15, M3 

SFR 6.FC0M3 

LOM 11, Ml 

CAM 8,-2 

CAM 9 

CAM 10, -4 

SFR 6,FRCNT 

CAM 12 

SFR 6,PUSHDN*2 

CAM 13,PUSHDN 

SFR 5,FC0M2 

ATN 1,1, 

LFR 5 

CAM 10, Mil 

CAM ll,M9=L 

LDM 9.FRCNT 

CAM 8,M12 

SBM 13,PUSHDN+4 

JPM 13,FRM£RR 

ADM 13,PUSHDN+5 

SFR 6,M13 

CAM 7 

CAM 9 

CALL FORMRD 

JZM 8 S AF5 

ADM 8,-44 

JZM 8,8STAR 

ADM 8,-16 

JZM 8,8RPR 

ADM 8,43 

JZM 8.8SLSH 



OUTPUT CONTROL WORD 

SET PRINT OR PUNCH CONTROL 

FORMAT START ADDRESS 



FORMAT CONTROL WORD SET 

SET SCALE TO ZERO 

INITIALIZE PARENTHESIS PUSH DOWN 

M13 IS PUSH DOWN ADDRESS 



FIRST CONTROL WORD 

LEFT PARENTHESIS AND START OF FORMAT 

MAKE FIRST PUSH DOWN ENTRY 



TOO MANY NESTED PARNETHESES 



STORE ENTRY 

M7 IS UDEO TO DETERMINE WHICH CHARS. MAY BE 
READ* NUMBERS ARE CONSTRUCTED IN M9 
READ FORMAT CHAR„ 
SKIP BLANK CHARACTER 

ASTERISC 

RIGHT PARNETHESUS 

SLASHo.END OF LINE 



o 


hd CD O 


£T 


i» (t P 




CR O c+ 


*5 


CD d- CD 


on 


• • |— '• • " 


o 


o 


" * 


ss 




-P- CD— 3 




CT\ • ^*» 




-P- H 




O 1 ON 




H3 S "* — *- 




R5 cr\ 




c^ 1 -p- 




ro he) 




W 




H 




!s! 




1-3 



ADM 

JZM 

JNN 

ADM 

JSB 

FIL 

ANN 

CAM 

JUM 

ADM 

JZM 

ADM 

JZM 

ADM 

ANM 

JZM 

ADM 

JZM 

ORM 

CJZ 

ADM 

JZM 

ADM 

CAM 

JZM 

ADM 

JZM 

CJZ 

ADM 

JZM 

ADM 

JZM 

CJZ 

ADM 

JZM 



8, -10 

8.AF2 

7.FRMERR 

8*16 

C8SUB2 

7,2 
14 

14*AF4 
8,-7 

8,8$ 

8,-5 

8,BX 

8,-34 

15*4077 

S,BEF 

8,3 

8,BEF 

15 e 4096 

8,BEF 

8,-3 

8,8H 

8,7 

2 

8,8A 

8,-3 

8,BD 

8,8A 

8,11 

8,BQ 

8,4 

8 , 8 M 

8,BL 

8,7 

8.BLPR 



COMMA 

SHOULD HAVE NEEN TERMINATING CHAR, 

DIGIT, GO CONVERT 



MUST BE P SINCE * OR - OCCURRED 

S FOR SPACES 

X FOR SPACE 

SET INHIBIT PLUS AND F SWITCHES 
F FIELD 

I WHICH IS SAME 
SET E SWITCH 
E FIELD 

HOLLERITH FIELD 

A FIELD 
D FIELD 

Q FIELD FOR OCTAL QUARTER WORDS 

M FIELD FOR OCTAL LOCATIONS 
L FIELD FOR DECIMAL LOCATIONS 

LEFT PARENTHESIS 



AF4 



o 


hd ai o 


E* 


93 CD SB 


03 


(N O c+ 


13 


fD d- fD 


OQ 


.. H- •• 


CD 


O 


1 


t3 




-P" OD-J 




-J . \ 




4=- H 




O I 0\ 




Hj [^ *^«^ 




r\5 o\ 




On i -P" 




ro hi 




W 




H 




^ 



ADM 
ADM 
JZM 
JUN 
AOH 
JZM 
ADM 
JUM 
QRM 

8PLUS ORM 
TRA 

BINC ANN 
CAM 



BINC1 
8RPR 



ADM 
ANN 



BSTAR 
BRPR1 



BSLSH 
BP 

BPI 



SBM 
JNM 
Fit 
1 CALL 
TRA 
SBM 
JNM 
ADM 
LDM 
CAM 
TRA 
CALL 
TRA 
ANN 
CAM 
JZM 
CSM 
CAM 



8,17 

8,-28 

8,BP 

14 FRH£RR 

8,-9 

8,BPLUS 

8,16 

8.FRHERR 

7,4 

7,2 

AF5 

4,3 

14 

14,BINC1 

5,1 

4,8188 

3s s 

11,1 

1U8RPR1 

FBACK 

AF2 

13 C PUSHDN*2 

13«FRMERR 

13 9 PUSHDN+i 

10,tU3+l 

11,M1G 

AF2 

FRESET 

AF2 

7,4 

14 

14, BPI 

9,K9 

12, M9 



POWER OR SCALE FIELD 
ALREADY HAD SIGN 

PLUS SIGN 

NOT MINUS SIGN 
SET MINUS 
SET SIGNED 

SUBROUTINE TO MOVE 1-0 LIST TO FULL WORD 

ALREADY ON FULL WORO 

INCREMENT WORD ADDRESS 

QUARTER WORD ADDRESS NOW ZERO 

EXIT 

RIGHT PARENTHESIS,, COUNT REPEAT COUNT 

REPEAT AGAIN IF POSITIVE 

FORMAT BACK UP TO MATCHING LEFT PARENTHESIS 

PUSH UP TO NEXT HIGHER LEVEL 
TOO MANY CLOSING PARNTHESES 



FETCH PREVOIUS REPEAT COUNT 

SLASH,, NEXT LINE OR CARD 

POWERo 

POSITIVE SIGN 

CHANGE SIGN 

SET SCLAE FACTOR 
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BEF 



BEF1 



861 

8E2 

BETA 

8E7 



BEA1 
BE6 



TRA 

CAM 

CAM 

CAM 

CAM 

CALL 

CAM 

CAM 

JZM 

ADM 

JNM 

ADM 

EOM 

JUH 

EOM 

JSB 

FIL 

JPM 

CAM 

FIL 

CALL 

JZH 

ANN 

CAM 

JUM 

CAD 

CRN 

CAM 

JPM 

ADD 

CALL 

ADM 

ADM 

JPM 

CAM 



AF2 

10*M9-1 

2 

7 

9 

FORMRD 

14.M8-37 

0»BE2 

14*BSUB4 

14 B 26 

14 e BSUB3 

14 fi -=37 

15^2 

l4 s BEFi 

15„18 

OeBSUB 

7 e BE3 
0»M8+ll 

BINC 

6 e BE4 

15*512 

14 

i4 c BE5 

5» is 

15,2 

14 

14 e BEAl 

5 s 1c 

FDP 

&tf~l 

iO P -l 

10 e 8E7 

12 



E F OR I FIELD 

REAO NEXT CHAR 

N CHARACTER^ GO SET NUMBER FROM 10 LIST 

DIGIT* GO REAO REST OF NUMBER 

SET DOUBLE PRECISION BIT 

DOUBLE PRECISION 

CANCEL DOUBLE PRECISION AND SET PLUS PRINT 

GO READ A NUMBER 

POINT NET READ YET 

SAVE NEXT FORMAT CHAECTAER 

INCREMENT WORD COUNT IF NOT ON WORD BOUNDARY 
10 WORD EXHAUSTED 

READ BIT 

BRANCH IF INPUT 
NUMBER TO ACCUMULATOR 
DOUBLE PRECISION BIT 

BRANCH IF SINGLE PRECISION 
SECONG HALF OF NUMBER 
PRINT 

DECREASE COUNT 
DECREASE E FIELD COUNT 
REPEAT IF MOTE NUMBERS 
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W 
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8S7 


CAM 


7,4096 




CAM 


9 




CAM 


8, MO 




TRA 


AFi 


BE5 


CALL 


REAOEC 




STC 


5,1, 




CRN 


15,2 




CAM 


14 




JPM 


14 8 BE6 




STR 


5c to 




TRA 


BE6 


BE4 


CAM 


3,8E7 




JPM 


4,BE9 




ATN 


1, is 




LFR 


5 




TRA 


BE7 


BSTAR 


CAM 


14„PUSHDN*i-M13 




JUM 


14,FRMERR 




CAM 


13,PUSHDN*2 




I DM 


9,Mi3 




JUM 


9«BSTAR3 




CAM 


13,PUSHDN*1 


BSTAR3 


LDM 
FIL 


1UMJ.3 


RES TAR 


CAM 


3 9 BSTAR 1 




JUM 


6, PRESET 




JPM 


4,8$TAR4 




ATN 


1*1, 




LFR 


5 




TRA 


RESTAR 


8STAR4 


CAM 


3,RESTAR 


8E9 


CRM 


4,12 




JNM 


4,8E9A 




CRN 


15,10 




CAM 


14 



SET TERMINATING CHARACTER REQUIRED 

NEXT CHARACTER TO M8 
RETURN TO FORMAT TEST 
INPUT NEXT NUMBER 
STORE MOST SIGNIFICANT HALF 

DOUBLE PRECISION BIT 
BRANCH IF SINGLE PRECISION 
STORE LEAST SIGNIFICANT HALF 
GO TO END TESTS 



GET NEXT 10 CONTROL WORD 



ASTERISK* CHECK FOR EMPTY PUSHDOWN 

STILL INSIDE PARNENTHESiS 

SET PUSHOOWN TO LAST LEFT PARENTHESIS fOUTSIDE! 

FORMAT ADDRESS OF LAST LEFT PARENTHESIS 

£ERO IF NO PARENTHESES ENCOUNTERED 

SET PUSHDOWN TO BEGINING OF FORMAT 

RESET PERENTHESIS REPEAT COUNT 



NEW LINE ON RETURN AND GO TO BACK UP 
LAST CONTROL WORD 

LOAD NEXT CONTROL WORD 



REPEAT ENTRY BIT ON 







JNM 


14 9 BE9A 






CALL 


PRESET 




8E9A 


SFR 


4,FT6 






LFR 


4,FGGM1 






SFR 


5 S FC0M1 






LFR 


5.FC0M2 






SFR 


6*FCGM2 






LFR 


6.FC0M3 






SFR 


7 e FC0M3 






LFR 


7,FCGM4 






JLH 


3» 9 




BE3 


CAM 


14 s «8-48 






CAM 


2„M9 






CAM 
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JUM 


14*BE7A 






CAM 


7,4096 






TRA 


BE1 




BS 


CAM 


10,M9~i 






CAM 


9 






JSB 


OvBSUB 






FIL 








CAM 

JZM 


0»M8*11 


o hj co b 


9.BS7 


tr p (t p 
93 eta o <+ 


AX1 


CRN 


15*10 


OQ .. H- .. 
CD O 

a 




CAM 
CAM 


7 

8 




BS6 


SFN 


9t $ 


vn 00 -J 

o • ~--~ 

O l o\ 


BS5 


CAM 
JNM 
CALL 


2 

7 B BS4 

FLDBF 


OA 1 -F 1 ' 




CJU 


2 s 8S5 


ro >tj 
Sd 


8S3 


ADM 


io»-i 


H 




JPM 


10,BS6 


3 




TRA 


8S7 




BS4 


CALL 


FRDBF 



INPUT TYPE 
OTHERWISE PRINT LATS LINE 

RESTORE F4 

SAVE F5 FOR REPEAT ENTRY 

RESTORE F5 

SAVE F6 

RESTORE F6 

SAVE F7 

RESTRQE F7 

EXIT 

LENGTH COUNT TO M2 
CLEAR POINT COUNT 
JUMP IF NOT POINT 
SET POINT READ 

SPACES S 
CLEAR NUMBER 
READ NUMBER 

SAVE NEXT OIGIT 
NO SPACES 

INPUT OUTPUT BIT 
BLANK TO M8 

MINUS COUNT F6R S 

INPUT 

OUTPUT -MI BLANKS 

COUNT REPEAT COUNT 



READ -M2 CHARACTERS 







CJU 


2.BS4 








TRA 


8S3 






8H 


SFN 
GAM 


9« v 
2 


HOLLERITH FIEL0 9 INVERT COUNT 






JZM 


9.BH6 


ZERO COUNT 






CRN 


15.10 








CAM 


14 


INPUT OUTPUT BIT 






JNM 


14,BH2 


INPUT 




BH1 


CALL 


FORMRO 


READ FORMAT CHARACTER 






CALL 


FLDBF 


OUTPUT 






CJU 


2«BH1 


COUNT 






TRA 


BH6 






BH2 


SFR 


5„FCQM12 


SAVE F5 






LFR 


5.FRCNT 


FORMAT CONTROL WORD 






SFR 


7 P FC0M13 


SAVE F7 




BH5 


CALL 


FRDBF 


READ CHARACTER 






CAM 


9 8 63 


SET MASK 






CJ2 


4.BH3 


LEFT OR RUGHTo BRANCH IF RIGHT 






CRM 


8.7 


MOVE TO LEFT 






CRM 


9,7 


DITTO MASK 




BH3 


LFR 


7 P M7 


CURRENT FORMAT WORD 






JLH 
FIL 


BH3A+MA+M6+8 


BRANCH ACCORDING TO QUARTER WORD 






Date 
Sect 
Page 
Chan, 


BH3A 


NAM 


12. M9 


FIRST QUARTER 




ORM 


12 E H8 


CHARACTER REPLACED IN FORMAT 


CD o 




JZM 


4.BH4 


RIGHT HAND PART 


£ 




TRA 


BH38 








NAM 


13. M9 


SECOND QUARTER DITTO 


\-n oo— J 




ORM 


13.M8 




O 1 On 




JZM 


4.BH4 




4 roo\ 




TRA 


BH3B 




ON 1 -t=~ 




NAM 


14.M9 


THIRD QUARTER DITTO 
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ORM 


14. MS 




1-3 




JZM 
TRA 


4.BH4 
BH3B 





Q *T) Cfl O 



not! n 
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03 

c+ 
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ro hd 
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8H3B 



NAM 
GRN 

JUM 
ADM 
CAM 
CAM 

ATN 
SFR 

AOM 

CJU 

SFR 



LFR 

8H6 JPM 

8 A3 ADM 

ADM 

JPM 

ADM 

CAM 

JPM 

LFR 

SFR 

. LFR 

CAM 

TRA 

BA5 CAM 

TRA 

BH4 CAM 

ADM 

TRA 

8SU81 CRM 

CRN 

ADM 

CJU 

ADM 



15*M9 

15»M8 

4»SH3B 

7,1 

4,-2 

6,-4 

-1 

7 9 M7 

5,1 

2$ 8H5 

5,FRCNT 

5,FCGM12 

7pFC0MI3 

7 P AF2 

5 8 1 

6»-i 

12«BA5 

10,-1 

9,MQ 

10,BA4 

7,FC0M6 

7,FRCNT 

7,FC0M5 

0,Mi4 

BS7 

9,H12*I 

8A4 

4,-2 

6,1 

BH38 

9,10 

9.2 

9,N8*U 

8,BSUB 

9, -10 



FOURTH QUARTER 

JUMP IF LEFT HAND PART 
INCREMENT WORD ADRESS 
RESET FORMAT CONTROL 

STROE CURRENT FORMAT WORD BACK IN MEMORY 
INCREASE FORMAT ADDRESS 

BY ONEo THIS IS A COUNT OF THE NUMBER OF FORMAT 
CHARACTERSo COUNT NUMBER OF HOLLERITH CHARACTER 
So RESTROE FORMAT COUNT? F5 AND F7 



THIS IS POSITIVE IF HOLLERITH,? -¥E IF A FIELD 

INCREMENT 10 LIST ADDRESS 

DECREASE 10 COUNT 

TEST FOR HGRE A CHARACTERS 

TEST REPEAT COUNT 

RESTORE M9 TO NUMBER FOLLOWING A 

POSITIVE IF MUST REPEAT 

REPLACE TRUE FORMAT ADDRESS 

CONTROL WORD 

RESTORE F7 

NEXT CHARACTER TO MO 

END OF ALL A FIELDS. FOR NOW 

M9 CONTAINS NUMBER OF NEXT GROUP OF 8 OR LEES CH 

ARACIERS 

RESET TO LEFT HAND QUARTER 

INCREASE QUARTER WORD COUNT 

MULTIPLY 8Y TEN 

AND ADD NEXT DIGIT 
TEST FOR ZERO 
RECQDE FROM 12 BASES 



BSUB 
8SUB3 

BSUB2 
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ON 


i -£- 


ro 


>xl 




W 




H 
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RENN 
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FLDBF 



CALL 
JZM 

aom 

JNM 

AOM 

JZM 

ADM 

JLH 

SFR 

CALL 

LFR 

FIL 

JUM 

CAM 

JPM 

CAD 

AOM 

SIA 

CAM 

TRA 

SFR 

SFR 

SFR 

LFR 

LFR 

JPM 

JLH 

FIL 

AOM 

CJZ 

CRM 

TRA 

ADM 

CJZ 

CRM 



FORMRO 

8 9 BSUB 

8,-11 

8,BSUB1 

8,-26 

8 V BSUB4 

8,26 

0, v 

4,FC0M6 

BlNC 

4.FC0M6 

6, RENI 

3. RENN 

4,BE9 

5,1, 

6,-1 

8 

9f W8 

BSUB 

5,FC0M7 

6,FC0M8 

7,FC0M9 

7,F8FW0 

5,FCNTS 

4.FERRPR 

12, M8 

6,FN3A 

12,7 

FN8 

13, M8 

6,FN3A 

13,7 



READ NEXT FORMAT CHARACTER 
SKIP BLANK CHARACTER 

DIGIT 

N, GOT READ A NUMBER FROM THE ID LIST 

OTHERWISE EXIT 



SUBROUTINE WHICH PUTS M8 IN OUTPUT BUFFER AS NEX 
T CHARACTER 

BUFFER PEPARATION WORD 

CONTROL WORD 

TOO MANY CHARACTERS FOR LINE OR CARD 

BRANCH ACCORDING TO QUARTER 

FIRST QUARTER^ CHAR- TO M12 

BRANCH IF RIGHT HAND PART 

MOVE TO LEFT 

SECOND QUARTER 
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AOM 


14 P M8 
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6,FN3A 




CRM 


14,7 




TRA 


FN8 




ADM 


15,M8 




CJZ 


6.FN6 




CRM 


15,7 




TRA 


FN8 


FN6 


ATN 


5,1 9 




SFR 


7 




LFR 


7 f FZER0 




CAM 


7,M=2 


FN3A 


CSM 


o v 2 




AOM 


7,2 


FN8 


AOM 


4,i 


FN8A 


SFR 


7 e FBFWD 




SFR 


5«FCNTS 




LFR 


5,FCGM7 




LFR 


6,FCOM8 




LFR 


7,FC0M9 




JLH 


3, v 


FBACK 


SFR 


4.FC0M12 




SFR 


7„F75 




LFR 


7,M13 




LFR 


4, FRONT 




ANN 


1,8184 




ANN 


13 p 8184 




SBM 
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CRN 


1*3 




SBM 


3 




CAM 


1,M13 




ANN 


i«l 




CAM 


s -2 




ANN 


1,6 



THIRD QUARTER 



FOURTH QUARTER 



STORE BUFFER PREPARATION WORD IN BUFFER 

PREPARATION WORD TO BLANKS 
RESET M7„ QUARTER WORD CONTROL 
RESET LEFT/RIGHT CONTROL 
INCREMENTQUARTER CONTROL 
INCREASE CHARACTER COUNT 
STROE PREPARATION WORD 



€XIT 

SUBROUTINE TO BACK MP FORMAT CONTROL HORO TO 

LAST LEFT PARENTHESIS IN CASE OF REPEAT 

PUSHDOWN ENTRY 

CONTROL WORD 



RESET FORMAT WORD ADDRESS 



LEFT RIGHT SWITCH RESET 
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ro 


hd 
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CAM 
CRM 
S8M 
SFR 
LFR 
LFR 
JLH 

FORMRD SFR 
SFR 
LFR 
LFR 
ORB 
CAM 
CJZ 
CRH 

F0RM3 ADM 
ANN 
SFR 
LFR 
LFR 
JLH 

F0RM2 CAM 
CJU 
CAM 
ADM 
TRA 

PRESET ANN 
CAM 
SFR 
SFR 
SFR 
4UM 
LFR 

FRST1 LFR 
TRA 



2 

2*1 

2*4 

4.FRCNT 

7,FT5 

4,FC0M12 

3*, 

4.FCGM12 

7.FCOM13 

4,FRCNT 

7,M3 

2,4 

8»M12 

Q,F0RM2 

8*6 

1*1 

8 * 63 

4,FRCNT 

4»FCOM12 

7.FCGM13 

3* » 

0,-2 

2,F0RM3 

2,^4 

3*1 

FQRM3 

15 P 512 

14 

5,FC0M7 

4,FC0H24 

7.FC0M9 

14*FN0QUT 

5tFCNTS 

7,FBFWD 

FBLNK2 



QUARTER WORD COUNT RESET 



STORE BACK IN MEMROV 

RESTORE F5 AND F7 

EXIT 

SUBRGUT+NE WHICH READS NEXT FORMAT CHARACTER 

FORMAT CONTROL WORD 
FORMAT WORD 

EXTRACT QUARTER WORD 

BRANCH IF RIGHT HAND PART 

SHIFT 

INCREMENT COUNT 

EXTRACT 6 BITS 

RESTORE CONTROL WORD 

RESTORE F4 AND F7 

EXIT 

RESET LEFT RIGHT SWITCH 

INCREMENT QUATER WORD COUNT 

RESET QUARTER COUNT 

INCREMENT ADDRESS OF FORMAT WORD 

SUBROUTINE TO OUTPUT LINE OR CARD, OR INPUT A CA 
RD DEPENDING ON SWITHCES IN M15 



BRANCH IF INPUT 

OUTPUT BUFFER CONTROL WORD 

PREPARATION WORD TO F7 
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FBLNKl ATN 
SFR 
LFR 
ADM 

FBLNK2 JNH 
LFR 
ANN 
CAM 
JUM 
CALL 
DECQ 
CAM 
CAM 
CAM 
TRA 

FN9A CALL 
DECQ 
CAM 
CAM 
CAM 

FN9B CAM 
SFR 
LFR 
SFR 
TRA 

FNGOUT CALL 
DECQ 
CAM 
CAM 
CAM 
CAM 
SFR 

FRSTNC LFR 
LFR 
LFR 



5,1, 

7 

7,F2ERG 

4,8 

4, FBLNKl 

7,FC0M9 

IS, 256 

14 

14,FN9A 

SYSIO 

WRITE+i P OUTBF,0,0 

0,-80 

2,-2 

3,M 

FN9B 

SYSIO 

WRITE«-2 B OUTBF f 8 

0,-133 

2,-1 

3,2*M 

IsOUTBF 

4,FCNTS 

7,FZER0 

7,FBFWD 

FRSTNC 

SYSIO 

i,INPBF„0,0 

Q*-80 

2,-2 

3,-4 

1, INPBF 

4,FCNTSC 

5*FC0M7 

4,FC0M24 

7,FC0M9 



FILL OUT BUFFER WITH PREPARATION WORD, THEN 

A 

ALL BLANKS 

MORE WORDS TO 60 



PUNCH/PRINT BIT 
BRANCH IF PRINT 
OUPUT TO PUNCH VIA SYSTEM 

RESET BUFFER CONTROL WORD FOR PUCH 



PRINT VIA SYSTEM PROGRAM 

RESET BUFFER CONTROL WORD FOR PRINT 

BUFFER ADDRESS RESET 

STORE FORU BACK INTO BUFFER CONTROL 

RESTROE F7 

INPUT CARD SECTION 

RESET CARD READ CONTROL WORD 



STORE IN CARD READ CONTROL 
RESTORE F4, F5 AND F7 
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JLH 

FROBF SFR 
SFR 
LFR 
JPM 
LFR 
ADM 
ORB 
CAM 
CJZ 
CRN 

FNC3 ANM 
SFR 
LFR 
LFR 
JLH 

FNC2 CAM 
CJU 
CAM 
ADM 
TRA 

BX CAM 
CAM 
CAM 
TRA 

BA CAM 
CAM 
JS3 
FIL 
CAM 
SFR 
LFR 
SFR 
CAM 

BA4 LFR 



3,, 

5,FC0M7 
7.FCGM9 
5.FCNTSC 

4.FERRPR 

7 S M5 

4,1 

7,4 

8,H12 

6,FNC2 

8s © 

8,63 

5,FCNTSC 

5,FCOM7 

7,FC0M9 

3, » 

6 B -2 

7„FNC3 

7,-4 

5,1 

FNC3 

1G»M9-1 

9*1 

0,27 

BX1 

10,M9-1 

9 

0,BSUB 

14»M8*U 

7,FC0M5 

7,FRCNT 

7,FC0M6 

0,M9 

7,FCOM5 



EXIT 

SUBROUTINE TO READ NEXT CHARACTER FROM A CARD 

CONTROL WORD 

TOO MANY CHARACTERS REAO 

CURRENT WORD OF 8 CHARACTERS 

EXTRACT QUARTER WORD 

RIGHT HAND QUZRTER 
SHIFT OVER FROM LEFT 
EXTRACT 6 BITS 
STROE CONTROL WORD BACK 
RESTORE F5 AND F7 

EXIT 

RESET LEFT/RIGHT COUNT 

QVARTER WORD COUNToBRANCH IF NOT FOURTH 

RESET TO FIRST QUARTER 

AND INCREMENT ADDRESS 

X FIELD 

SET COUNT TQ ONE 

FAKE A COMMA READ 

AND GO TO S FIELD TYPE 

A OR C FIELD 

COUNT TO MIQ 

NUMBER OF CHARACTERS TO M9 

SAVE NEXT CHARACTER IN Ml* 

SAVE FT 

FORMAT CONTROL IS SAVED 

AND REPLACED SO THAT THE HOLLERITH PROGRAM CAN B 

E USED 

RESTORE I/O CONTROL IN M15 
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BAl 
BA2 



BM 
BO 
BQ 
BL 



B03 



CALL 

FIL 

JIM 

CAM 

CAM 

CAM 

SFR 

LFR 

CAM 

JNM 

CAM 

CAM 

TRA 

CAM 

JPM 

ATN 

LFR 

TRA 

ADM 

AOM 

ADM 

CAM 

CAM 

JSB 

FIL 

CAM 

ADM 

SFR 

CRN 

CAM 

CAM 

CAM 

CAM 

FIL 

JZM 



BINC 

6.BA2 

12»-2 

14,-4 

15»M5 

7,FRCNT 

7,FC0M5 

12*M9-9 

12*BAi 

9*8 

7»4096 

BH 

3„RE8A 

4„BE9 

Is L-8 

5 

BA4 

2 e -2 

2,4097 
2 v 4096 
10»M9-=1 
9 
0*BSUB 

S M2 

8*11 

6.FCGM5 

I5 e i0 

II 

2,M9 

9 

12 

6»BD2 



MOVE UP TO WORD BQUNRARY 



CONSTRUCT FAKE FORMAT CONTROL WORD 



RESTROE F7 

BRANCH IF LESS THAN 8 CHARACTARS LEFT 

SET COUNT TO 8 CHARACTERS 

SET MARKER IN Ml SO THAT CORRECT EXIT IS MADE FR 

M HOOLERITH 



FETCH NEXT CONTROL WORD 

M FIELD 
D FIELD 
Q FIELD 

L FIELD 
CLEAR NUMBER REGISTER 
READ NUMBER 

M/O/Q/L CONTROL TO MO 

SAVE NEXT DIGIT 

INPUT OUTPUT 
COUNT TO M2 
CLEAR POINT CONTROL 
CLEAR SCALE FACTOR 



NO MORE WORDS IN 10 CONTROL WORD 
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SFR 


7,FC0M6 




JPM 


11,8(34 A 




JNM 


CBQl 




CALL 


READEC 




SIA 
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G*BL1 


BQ4 


LFR 


7, MS 




JPM 


1UBD0UT 




ANN 


4,3 




TRA 


BD4 


BD4 


CAM 


12, M8 




TRA 


BD5 




CAM 


13, M8 




TRA 


8D5 




CAM 


14, M8 




TRA 


BD5 




CAM 


15, M8 


805 


SFR 


7,M5 


BD11 


ANN 


4,3 




CAM 


3,-3 




ADM 


4,1 




JUM 


3,BD7 




ADM 


4,-4 


BD6 


ADM 


5,1 


607 


ADM 


6,-1 




LFR 


7,FC0M6 




ADM 


10,-1 




JPM 


10,8D3 




LFR 


6,FC0M5 




CAM 


0,M8 




TRA 


BS7 


BD2 


CAM 


3,BD3 




JPM 


4,BE9 




ATN 


1,1, 




LFR 


5 



SAVE F7 

BRANCH IF OUTPUT 
BRANCH IF OCTAL 
READ DEC I NAL NUMBER 
STORE AS INTEGER IN M8 
BRANCH IF L FIELD 
DATA WORD TO MB 
BRANCJ IF OUTPUT 

BRANCH ACCORDING TO QUARTER WORD 
FIRST QUARTER 

SECOND QUARTER 

THID QUARTER 

FOURTH QUARTER 
STORE BACK IN MEMORY 



INCREASE Q 

NOT WORD BOUNDARY 



INCREASE WORD COUNT 

DECREASE ITEM COUNT 
RESTORE F7 

DECREASE REPEAT COUNT 
REPEAT FIELD 
RESTORE F6 
NEXT CHARACTER IN FORMAT TO 

SET LINK SHOULD REPEAT ENTRY ARISE 

LAST CONTROL WORD USED 

LOAD NEXT CONTROL WORD TO F5 



o 


hd CQ tt 


tr 


SO CD S» 


01 


oq o d- 





c+(l 


CR 


. . H- •• 


(D 


o 


• ■ 


p 




• • 




ON 00 -J 




o • \ 




-f=" H 




O 1 ON 




*~~b S ^--^ 




ro on 




On l -f=- 




ro hd 




w 




H 




a 




H§ 





TRA 


B03 


804 A 


JZM 


0,BMl 




CJU 


0,BQ4 




CAM 


0,-1 


SMI 


CAM 


7,M5 




CAM 


10 




TRA 


B0UT1 


BOOUT 


ORB 


4», 




CAM 


?,M12 


80UT1 


JNM 


Q,BQUT2 




CAO 


9,3,M7 




CAM 


12 




CAM 


9 




CAM 


7 




CAM 


15 




CALL 


FOP 




JUM 


CBDll 




TRA 


B07 


BQUT2 


CAM 


9,M2-6 




CAM 


B 




TRA 


B0UT3 


6GUT4 


CALL 


FLOBF 




ADM 


9,-1 


B0UT3 


JPM 


9.B0UT4 




CAM 


11,-5 




CRM 


7,12 




ANN 


7,1 




CAM 


8 




TRA 


B0UT5 


BOUT 7 


CRM 


7,10 




ANN 


7,7 




CAM 


8 


BOUTS 


CJU 


9.B0UT6 




JUM 


8,B0UT52 




CAM 


8,10 



BRANCH IF M F1EL0 

AND JF Q FIELD 

RESET SWITCH FOR M :FOELO 

ITEM TO M7 

CLEAR REPEAT COUNT 



EXTRACT QUARTER WORD FOR PRIMING 

OCTAL PRINT 

NUMBER TO ACCUMULATOR 



STE ENTRY PARAMTERS FOR INTEGER PRINT 

PRINT 

NOT AN ADDRESS PRINT 

OCTAL PRINT START 

BLANK 

OUTPUT CHARACTER 

DECREASE COUNT 

REPEAT CHARACTER 

COUNT FOR K OCTAL DIDGITS 

EXTRACT FIRST DIGIT 



EXTRACT 2ND THRU 5TH DIGITS 



COUNT NUMBER OF CHARACTERS 

NOT ZERO 

ZERO CODE CONVERT 



o 


hj CO fcf 


& 


pa (D i» 


SO 


OQ O c+ 


p 


(I ct (D 


m 


.. H- •• 


n> 


O 


•• 







** 




CT\OD-J 




h- 1 • \ 




-t=- H 




o i o\ 




*~ b I<^ ^" v *«. 




RS c^ 




OA 1 fr 




ro hd 




w 




H 



S0UT5Z CALL FLDBF 

CAM 9.-1 

BQUT6 CJU U.B0UT7 

CJU 0.8011 

TRA 807 

BQ1 CSM 9.M2 

CAM 7 

BQ2 CALL FRDBF 

JZN 8.BQ3 

CRN 7.10 

ADM 7.M8 

AOM 8.-10 

JUM 8«8Q3 

AOM 7.-10 

BQ3 CJU 9 t BQ2 

CAM -- 8.M7 

CJU 0.8Q4 

8L1 CAM 10 

CAM 5.N8 

SFR 7.FC0M6 

TRA 807 

FIL 

FCNTSC DEGQ -80»INP8F.-2*~4 

FCNTS DECQ -133»QUTBF#=2.M 

FZERO DECQ ... 

WTBF 8SS 17 

1NPBF BSS 10 

PUS HON BSS 5 

ASSIGN FC0Ml.FCGM2,,FG0M3»FCOM4 

ASSIGN FRCNT.FCGM12.FCGM13 

ERROR CAM 1.ERM1 

TRA ERPR 

ERRQRT CAM 1.ERM2 

TRA ERPR 

FERRPR CAM 1.ERM3 



OUTPUT CHARACTER 
STT BLANK INHIBIT 
COUNT LENGHTH OF FIELO 
NOT AOOR ESS PRINT 

OCTAL READ PROGRAM 

CLEAR ASSEMBLY AREA 

READ CHARACTER 

IGNORE BLANK 

SHIFT ASSEMBLED WORD LEFTT 3 

AND INSERT NEW OCTAL CHARACTER 

CODE CORRECT IF ZERO 

NOT ZERO 

COUNT CHARACTERS 
ASSEMBLED QUARTER TO M8 
NOT ADDRESS READ 
CLEAR REPEAT COUNT 
SET IN 10 LIST IMAGE 



o 


P 
OR 


CQ 

n 


s? 


p 


CD 


c+ 


CD 


(R 


• • 


H- 


• • 


(D 




o 




** 




p 






ON 00-^1 




ro 


• 


^■^ 






4=- H 




o 


1 


CT\ 




H> 


is 


CT\ 




ON 


1 


■f=- 




ro 


■xt 

1-3 





FRMERR 



ERPR 



EMES 
ERMI 
ER«2 
ERM3 
ERH5 
If ESI 
MES2 
MES3 
MESS 



WRITE 



TRA ERPR 

CAM UERM5 

LFR 7,FRCNT 

SFR 7*EMES+l 

LFR 7*FC0N1 

SFR 7, EMES 

CAM 12 

SFR 7»FC0Ml 

CALL PRINT 

LFR 4* EMES 

SFR 4»FC0N1 

CALL SYSERR 

FIL 

BSS 2 

OECQ 3(,EMES C 1 S MES1 

OECQ 3?EMES»l»MES2 

OECQ 3 s EMES c l fi MES3 

DECQ 3,EMES*i P l*MES5 

CHR 32»26H DATA CHARACTER INCORRECT Q5» 

CHR 24 S 17H FIELD TOO SMALL QS» 

CHR 40„29H TOO MANY CHARACTERS ON LINE Q5« 

CHR 24 9 14H FORMAT ERROR Q5* 

ASSIGN FGQM7?FCGM8,FC0M9 

ASSIGN FC0M6 FC0M5»FC0M24 

ASSIGN FBFMD,FT5,FT6 

EfcUS 512 



8«^ Program Descriptions 

A number of subroutines are in preparation for the card operating 
system and should he available by June. (No descriptions are yet available.) 

They will include: 

Logarithm 

Sin/ Cob 

Square Root 

Exponential 

Integration of Ordinary Differential Equations 

Solution of Linear Equations 

Roots of Polynomial 

Quadrature 
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